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Introduction The purpose of this book is to explore the computer's special 

abilities to produce graphic displays. The book is geared toward one 
microcomputer, the Radio Shack TRS-80, and one computer 
language, BASIC. However, due to the generalized nature of the 
discussion, we feel that the techniques employed in the many sample 
programs can be adapted to other hardware and other languages. 
Three general methods for producing computer graphics are 
examined in depth. The most traditional method of creating 
pictures with a computer, line printer graphics, is treated first. With 
line printer graphics, the picture is considered to be a set of 
horizontal lines whose components are the letters, digits, and special 
symbols that make up BASIC'S character set. This method of 
producing outlines, silhouettes, graphs, and other visually appealing 
pictures takes up tlie largest part of the book, as it should. Line 
printer graphics can be produced using any language and with any 
computer, with or without printer. 

Character graphics is the second method for creating graphics 
and relies on the TRS-80's 64-character set of graphic symbols. 
Many microcomputer makers besides Radio Shack have adopted 
special graphic characters, and for good reason. These characters 
allow the video screen to display a wide variety of special effects, 
such as game boards and pieces, lunar landers and space ships, faces 
and entire bodies, even schematics and blueprints. The popularity of 
this technique has increased significantly since the appearance of the 
many microcomputer chess games on the market in the late 1970's. 

vii 



The third technique for producing graphics is pixel graphics. 
The pixel is to visual information what the binary digit or bit is to 
stored information. The bit is the smallest amount of storable 
information, a 1 or a 0, whereas the pixel is the smallest amount of 
pictorial information, an addressable area of the screen that can be 
turned on or off, bright or dark. The microcomputer programmer 
who can deal with pixel graphics on the TRS-80 can produce 
computer displays at moderate resolution. While the normal display 
density of a TRS-80 screen is 64 characters across and 16 lines down, 
the display density increases by a factor of 6, to 128 pixels across 
and 48 down. 

As you proceed through the discussion of the three graphics 
methods, you will discover a diversity of techniques exempUfied by 
many complete programs, both short and long. We hope you will try 
them out and modify them as you see fit. We have purposely left 
some programs in skeletal form so that you can adapt them more 
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Tlie Program Is 
the Picture 



The simplest form of hne printer graphics is when the program 
is the picture. Each program statement is a PRINT statement which 
outputs a hne of the picture. An overwhelming advantage of this 
technique is that the programmer can detect and correct errors in 
the picture easily by inspecting a hsting of the program. 



Problem 1.1 
Solution 



Draw a picture of the Virgo zodiac sign. 
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draw 3 picture 
Jdr 8/80 



of the VirSo zodisc si^n 



PFaNT " 0000 0000 0000 0000" 

PRINT " 000000 000000 000000 000000" 

PRINT "00000000000000000000000000000000 00" 

PRINT " OOOOOOOO 00000000 00000000 00" 

PRINT " 0000 0000 0000 0000" 

PRINT " 0000 0000 0000 0000" 

PRINT " 0000 0000 0000 0000" 

PRINT " 0000 0000 0000 0000" 

PRINT " 0000 0000 OOOOOOOO" 

PRINT " 0000 0000 000000" 

PRINT " 0000 0000 0000" 

PRINT " 0000 0000 000000" 
END 
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Problem 1.2 
Solution 



Draw a picture of the state of Massachusetts. 
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' purpose 
' author 

PRINT " 
PRINT " 
PRINT " 
PRINT " 
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END 
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Problem 1.3 
Solution 
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Draw the logo for Bentley College. 

'fJ.lenafTiet"=5lF3" 

' FurposeJ produce lodo of Beniley ColleSe 

' sulhorJ jdr 8/80 
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PRINT •■: 

IF INKEY$='" 
END 
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Problem 1.4 
Solution 



Sketch a picture of Woodstock. 

10 'filen3rae{"alp4" 

20 ' purpose; drsw UoodslocK 

30 ' author: Jdr 8/80 

40 ' 

50 LPRINT " f 

60 LPRINT " , < -" 

70 LPRINT " f ( -= -" 

80 LPRINT " - -= -=" 

90 LPRINT " -( 

100 LPRINT " .======== * -==" 

110 LPRINT "( 

120 LPRINT "f 

130 LPRINT " 

140 LPRINT " 

150 LPRINT " - -=-- 

160 LPRINT " 

170 LPRINT " if" 

180 LPRINT " { f i" 

190 LPRINT " r f »" 

200 LPRINT " , , , ," 

210 LPRINT " . » f f" 

220 LPRINT " f f f i" 

230 LPRINT " » » f" 

240 LPRINT " =—,-=== 

250 LPRINT " I = 

260 LPRINT " (((((((((-' 

270 LPRINT " f(" 

200 END 
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Discussion • Producing pictures in this way is simple, if you trace eitlier 

an existing sketch or an original drawing onto a coding form. 

• If you use a variety of characters to produce the output, 
you can more closely approximate the subtle shadings, 
pleats, highlights, and other details in the picture. 



Don't let the simplicity of this graphics technique dissuade 
you from using it. The very fact that it is so simple makes it 
immensely popular. Using someone else's artistic ability or your 
own as a pattern, persistence in the face of tedium coupled with 
this technique can provide some pleasant computer graphics. 
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TABbed Pictures 



Problem 2.1 



All versions of BASIC have a TAB function that allows 
positioning of the carriage or print head or cursor anywhere across 
the output line. Also, the execution of a PRINT statement that 
doesn't end with a comma or semicolon results in a carriage return- 
linefeed. With these controls in two dimensions, a wide variety of 
pictures can be produced. As in the previous chapter, we will 
illustrate the techniques using both output on a line printer and 
pictures of actual screen output. 

List a table of strings in a variety of ways using the TAB 
function for positioning the string on the output Hne. 



Solution 



'filensiT.eJ"s2pl" 
' purposel oulpui 
' author t 



Jdr 



l3ble 
8/80 



20 

30 

40 

50 

60 

90 CLS : RANDOM 

100 FOR 1=1 TO 15 

no PRINT TAB<25);P$(I) 

:l.20 NEXT I ; GOSUB 1000 'pause 



in sundry ways usin^ TAB function 



DIM P$(15) 
FOR 1=1 TO 



i; 



READ P$(I) : NEXT I 



and clear screen 
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220 
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240 

260 

270 

280 

300 

310 

320 

340 

350 

360 

370 

1000 

1010 

999? 



FOR 1=1 TO 15 

PFaNT TAB(I>yP*(I) 
NEXT I J GOSUB 1000 'fsusb & clear 
FOR 1=1 TO 15 

PRINT TAB(2:|cl)5p$(I) 
NEXT I : GOSUB 1000 'p-suse & clesr 
FOR 1=1 TO 15 

PRINT TAB(3*ABS(8-I))5P$(I) 
NEXT I : GOSUB 1000 'pause & clear 
FOR 1=1 TO 15 

PRINT TAB(RNri(40))?P$(I) 
NEXT I ; GOSUB 1000 'pause & clear 
FOR 1=1 TO 15 

PRINT TAB( 40-LEN( P$(I ) ) );P$( I ) 
I : GOSUB 1000 'pause & clear 



NEXT 
STOP 
DATA 
DATA 
DATA 

P3U 



"parrot"? "pheasant"? "ptarmigan"? "pelican"? "penguin" 
"pochard" ?"pipit" ? "purple mariin" ? "pardalote" ?"pewee" 
" Pintail"? "puff in "?"phoeniK"? "Phoebe"? "plover" 
se and clear screen subroutine 



FOR J=l TO 200 
END 



NEXT J ; CLS J RETURN 
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Discussion 



When the argument of the TAB function is a more complex 
expression than a constant, some otherwise prosaic output 
can be transformed into a graphic presentation of 
information. 



Suggestions 



® Modify the argument of the TAB function to produce other 
interesting visual patterns. 
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Problem 2.2 
Solution 



Produce a visual representation of the sine curve, y=sin x. 

:iO 'f5]pnBaet"s2f2" 

70 ' purrose? arsph the sine function 

30 ' author; Jpg 1/80 

40 ' 

50 ' let the X axis vary from to 2 pi radians. 

60 FOR X=0 TO 6.28 STEP .25 

70 ' calculate displacement from on Y axis? 

BO ' then expand by 30. 

90 Y=SIN(X):!!30 

100 LPRINT TAB(Y+30)? "«" 

110 NEXT X 

9999 END 






% 
% 
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Qiapter 2 TABbed Pictures 



Discussion 



• The Y-axis is across the print line and the X-axis is down the 
page. Thus, the tabbed position of Y, as represented by the 
asterislc ("*"), varies according to the sine of the line count 

X. 

« The increment between calculated points is .25 radians. To 
squeeze the sine wave (increase its frequency), increase the 
increment. To expand the sine wave (decrease its frequency), 
reduce the increment. 

® The sine wave is shown between and 6.28 radians, or to 
360 degrees. To see more waves, increment from to 10 
(or more) radians. To see the sine function before degrees, 
increment from -6.28 to 6.28 radians. Note that 6.28 is 
approximately two times pi, or almost a full circle of 360 
degrees. 



Suggestions 



Problem 2.3 



9 Make the following changes in the statements indicated. 

60 FOR X=0 TO 6.28 STEP .5 
60 FOR X=0 TO 6.28 STEP . 1 
60 FOR X=-6.28 TO 6.28 STEP .35 
60 FOR X=-20 TO 20 STEP .7 
90 Y=ABS(30*SIN(X))+32 

Produce a visual representation of three functions 
simultaneously; a=sin x, b=sin 2x, and c=a+b 



Solution 



JO 

20 

30 

40 ' 

50 ' vsry X 

60 FOR X=.l 

70 

80 

90 

100 

110 



'fi.1en5inel"s2p3" 

' PurposeJ Srsph of multiple functions 

' author: Jf3 1/80 



from .1 to 6.28 radians 

TO 6.28 STEP .1 

Set original values of desired functions 

S2=BIN(3*X)t SS=S+S2 
adjust values of functions for printer 



A=: 

IF 



?0fS+32: B=20!i(S2-f-32: C=20*SS+32 



120 IF 



130 IF 



140 NEXT 
9999 END 



A<=Ef AND A<=C THEN LPRINT TAB(A>"."f: 
IF B<=C THEN LPRINT TAB(B)" + " TAB(C)"*" 
ELSE LPRINT TAB(C)'"iic" TAB(B)"+" 
B<=A AND B<=C THEN LPRINT TAB(B>"+"5: 
IF A<=C THEN LPRINT TAB(A)"." TAB(C)"*" 
ELSE LPRINT TAB(C)"*" TABCA)"." 
C<=A AND C<=B THEN LPRINT TAB(C)''*"f5 
IF A<=B THEN LPRINT TAB(A>"." TAB(B)"+" 
ELSE LPRINT TAB(B)'' + " TAB(A)"." 
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Qiapter 2 TABbed Pictures 



Discussion 



Once you find out which one of the points is lowest in value, 
print it. Then print the lesser of the remaining two. Then 
print the one that's left. 

If you graph this kind of multiple function, it is usually 
necessary to use different characters to plot the different 
functions. 



Suggestions 



Add the first five harmonics of x: 

y=sin X + sin 2x + sin 3x + sin 4x + sin 5x 
Then, graph y versus x. The result will be a sawtooth wave 
form. 



Add the first five odd harmonics of x: 

y=sin X + sin 3x + sin 5x + sin 7x + sin 9x 
Then graph y versus x. The result will be a square wave 
form. 

Graph sin x and cos x together. 



Problem 2.4 



Graph a damped cosine curve. More specifically (and 
compHcated sounding), graph two full cycles of a rectified 
sinusoidal curve that decays exponentially. 



Solution 3 'f ilen3nieJ"32p4" 

20 ' PurposeJ absolute cosine function decsyinS exponentially 

30 ' author: JpS 1/80 

40 ' 

50 INPUT "Enter the decay factor ( ♦Ol to ♦3)"»DF 

60 INPUT "Enter the step size in degrees (5 to 30)" 55 

80 LPRINT »"Dec3y factor I "iWf "Step size^JS 

90 LPRINT I LPRINT 

100 'print vertical arid header 

110 LPRINT TAB(10>".0" TAB(20>%2" TAB(30> ".4" TAB(40)"»6" 

TAB(50)".8" TAE(60)"1.0" 
120 ' print vertical 3rid itself 
130 LPRINT TAB(10)f 
140 FOR 1=10 TO 60 

150 IF I/10=INT(I/10) THEN LPRINT "+"» ELSE LPRINT "-"f 
160 NEXT It LPRINT 

170 ' step from to 720 degrees by steps of S degrees 
180 FOR 11=0 TO 720 STEP S 
200 R=ri*.017 ' convert degrees to radians 
210 Y=49*ABS( EXP( -DF*R )!|cCOS( R ) ) 

220 IF D/90=INT( D/90 ) THEN LPRINT USING "*** deg."fDf 
230 LPRINT TAB(10)"»" TAB(Y+ll)"r 
240 NEXT D 
9999 END 
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Decsy factor J .1 



Step size* 20 



.0 .2 .4 .6 ,8 
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Discussion 



® The absolute value function ABS in line 210 does the 
rectifying by converting all negative values of the cosine 
function into their positive counterparts. 

» The exponential function EXP in hne 210 produces the 
damping effect on the curve. 



Suggestions 



• Remove the ABS function and shift the graph to the center 
of the screen: The output is the trace of a moving pendulum 
as it loses its momentum. 



• Modify the program to show two traces at different 
frequencies. 

• Change the EXP function's argument from negative to 
positive. The effect will be to display an increasing amphtude. 

This is what h3.'"t?ens when an object be^'ins to vibrate at its 
resonant frequency. 



The TAB function can be very useful in the plotting of curves. 
The examples shown above should provide sufficient patterns for 
you to explore its use in graphing more exotic or more useful 
functions. 
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Bar Graph Pictures 



Problem 3.1 










The pictorial representations that are variously called bar 
graphs or histograms are easy to understand but can be difficult to 
get the computer to produce them. If the bars are arranged 
horizontally, the bar graph's generation is relatively simple to 
program but the descriptive text is arranged contrary to custom. 

Depict the rate of reported crimes in five large metropolitan 
areas in 1976 using a bar graph. 



MetropoUtan 



area 



Population, 
thousands 



Crime index, 
thousands of 
reported crimes 



New York 


9,635 


Chicago 


6,982 


Los Angeles^Long Beach 


6,945 


Philadelphia 


4,797 


Detroit 


4,444 



658 
214 
247 
77 
154 
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Solution 3 'f ilen3»e{"s3pl" 

purpose! horizonlel bar chsrt 



Buihort JpS 1/80 



30 

20 

30 

40 ' 

50 DIM C$(5). P(5). C(5) 

60 FOR 1=1 TO 5t READ C$( I )» P(I)» C(I )} NEXT I 

70 DATA "NEW YORK'S 9635^ 658? CHICAGO? 6982? 214 

80 DATA "L.A.-LONG BEACH"? 6945? 247 

90 DATA PHILADELPHIA? 4797? 17^ DETROIT? 4444? 154 

95 CIS 

100 PRINT TAB( 15 >" REPORTED CRIMES PER THOUSAND POPULATION" 

110 PRINT 

115 FOR 1=15 TO 60 STEP lOt PRINT TAB( I )?( I-ISm? t NEXT It PRINT 

120 FOR 1=1 TO 5: L=500!|cC( I )/P( I ) 

130 PRINT 

140 PRINT C$(I)5t GOSUB 500 

160 NEXT ! 

170 GOTO 170 

500 FOR J=l TO L: PRINT TAB(15+J)"§»? t NEXT i\ PRINT? RETURN 

9999 END 
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Qiapter 3 Bar Graph Pictures 



Discussion 



Suggestions 



• The program graphs the number of reported crimes per 
ten thousand population. 

• Each one of the rightmost 50 cokimns of the screen represent 
one reported crime per 500 population. 

• This program could be improved by generalizing it to allow 
flexibility in defining the tabular data. 

• Provide a dialog before the DIM statement that allows a 
variable number of cities to be analyzed. This would require 
the input of the data interactively, rather than through 
DATA statements. 



Problem 3.2 



Rotate the bar graph produced in problem 3.1 so that the bars 
are vertical. 



Solution 



:io 
20 
30 
40 
50 



'fi,len3met"a3p2" 

' PUPFOseJ vsrlicsl bar chart 

' suihorJ Jps 1/80 



DIH 
55 DIM 
60 FOR 



P(5), C(5) 



C$(5)y 

L(5) 

1=1 TO 51 READ C$(I>» P(l), C( 1)1 L( I )=500)|cC(I )/P( I )J NEXT I 
70 DATA "NEU YORK", 9635y 658, CHICAGO, 6982, 2U 
80 DATA "L* A. -LONG BEACH", 6945, 247 
90 DATA PHILADELPHIA, 4797, 77 f DETROIT, 4444, 154 
95 CLS 

100 PRINT TAB( 15)" REPORTED CRIMES PER THOUSAND POPULATION" 
130 FOR Y=0 TO 15 
132 
135 
138 
140 
150 
160 
162 
170 
9999 



IF M/20=INT( M/20 ) THEN PRINT Y!it32+160, Hi 
FOR 1=1 TO 5 

IF L(I)>(Y+1)*4 THEN PRINT & 64«(10-Y)+I«13-8, 
NEXT I 
NEXT Y 

FOR 1=0 TO 4: PRINT 8 708+1*13, C$( 1+1)5: NEXT I 
GOTO 170 
END 



"nnWf 
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Discussion 



Suggestions 



• Note the clumsy subtitling when the city names are very 
long. 

* Also note the lack of resolution in the heights of the bars. 
One might assume from looking at this bar graph that 
Philadelphia's crime rate is two thirds that of Chicago's 
when in fact it is about half. The flaw hes in the restriction 
on the height of the bars to just 1 5 units in order for the 
bar graph ta fit on the screen. This low resolution was not 
apparent in the previous program because each bar could be 
as long as 4.5 characters, yielding a threefold increase in 
detail. 

® Rewrite the program to accept the data interactively. 

Suggest to the user that city names be abbreviations, such as 
"CHI", "LA-LB", or "DET", each hmited to five characters. 
With such a restriction, you should be able to graph about 
tVv'ice as man'^' cities and the titles won't run into each other. 

® Alter the program to provide more resolution, say bar 
heights to 30 or 40. Notice that this restricts the program's 
output to the prhiter. 
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Problem 3.3 Write a generalized bar graph generator program. 

Solution 10 'filensiseJ 'SIpZ' 

20 ' purposet general ized hisloSrsin 

30 ' aulhor: Jpa 1/80 

40 ' 

60 INPUT "HOW HANY DATA POINTS" ?N: DIM D(N) 

70 INPUT "WHAT IS LOW MALUE"5LI MIN=L 

80 INPUT "WHAT IS HIGH VALUE" 5 HJ MAX=H 

90 LPRINT "Num=°?N?''Low="5L."Hiah="5H 

100 ' Generate N random dels points between MAX and MIN 

110 FOR 1=1 TO N 

120 D( I )=RND< MAX-MIN+1 )+MIN-l 

130 LPRINT D( I ); 

140 IF I = INT(I/10mO THEN LPRINT 

150 NEXT I 

160 LPRINT 

170 ' Get heishi interval size, 

180 H=INT(MAX-HIN+1)/10 

190 DIM B(10) 

200 FOR 1=1 TO N 

210 ' P is proper bar pointer 

220 P=(D(I)-MIN+1)/H + .5 

230 B(P)=B(PH1 

240 NEXT I 

250 LPRINT 

260 FOR 1=1 TO lO: LPRINT B(I)i; NEXT I 

270 LPRINT I LPRINT J LPRINT 

280 HT=B(1) 

290 FOR J=l TO 10 

300 IF HT<B(J) THEN HT=B< J) 

310 NEXT J 

320 ' II is vertical interval size (integer) 

330 II=INT(HT/10+1) 

340 FOR 1=10 TO 1 STEP -1 

350 LPRINT II^i; TAB(5)5 " "J 

360 FOR J=l TO 10 

370 IF B(J»=I«I THEN LPRINT " U* "i 

ELSE LPRINT " "i 

380 NEXT J J LPRINT 

390 NEXT I 

400 LPRINT "Size>"; 

410 T=7 

420 FOR I=MIN TO MAX STEP H 

430 K=INT(I+H/2) 

440 LPRINT TAB(T>5 Kit T=T+5 

450 NEXT I 

9999 END 
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Nii(ii= 200 Low= High= 99 

31 49 25 48 70 22 37 52 4 39 

61 74 n 20 62 43 18 3 83 26 

15 1 53 71 67 31 76 23 3 19 

89 15 84 80 98 38 72 71 94 80 

85 25 31 48 14 48 93 53 25 8 

28 35 31 81 58 49 42 88 hi 86 

87 94 61 64 12 92 1 44 56 53 

20 23 97 62 4 53 75 17 55 31 

93 10 25 65 89 86 30 21 84 64 

35 36 6 52 12 10 88 19 80 75 
44 51 13 39 12 86 28 99 82 10 
44 34 95 45 21 76 11 98 hi M 

65 94 26 81 82 11 40 11 84 95 
81 42 56 50 69 89 1 30 49 95 
58 13 59 23 2 47 65 26 20 4 

66 86 56 11 88 30 37 54 41 28 
70 55 53 54 16 34 85 32 37 29 
14 50 23 9 96 58 86 50 1 26 

36 87 24 97 30 51 68 94 93 66 
12 20 20 34 41 20 45 87 58 26 

18 22 24 18 25 16 17 16 24 13 



30 

27 

24 %%% %%% %%% 

21 %%% %%% ttt %%% 

18 %%% %%% ttt ttt ttt ttt 

15 ttt ttt ttt ttt ttt ttt ttt ttt ttt 

12 ttt ttt ttt ttt ttt ttt ttt ttt ttt ttt 

9 ttt ttt ttt ttt ttt ttt ttt ttt ttt ttt 

6 ttt ttt- ttt ttt ttt ttt ttt ttt ttt ttt 

3 ttt ttt ttt ttt ttt ttt ttt ttt ttt ttt 

Size> 5 15 25 35 45 55 65 75 85 95 
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Discussion • This is a generalized bar graph generator which can apply to 

most kinds of data. It provides for 10 bars oriented 
vertically. 

• Note that the program's calculations are almost entirely for 
purposes of scahng the vertical and horizontal dimensions of 
the graph. 

• The data values that are graphed are produced by the 
program itself in lines 1 10-150. Of course this section of 
the program should be rewritten to allow the user to 
either enter the data conversationally or provide DATA 
statements which the program would READ. 

Suggestions • Rewrite the program to have the user provide the data. 

• Modify the program to give the user the choice of symbol 
used for printing the bars. 

• Rewrite the program to give the user the choice of screen or 
printer output. 



Chapter 3 Bar Graph Pictures 25 




Computed Pictures 



This chapter illustrates a technique that uses a two-dimensional 
table to hold numeric values that have been computed according to 
the solution of some problem. This table is then outputted with 
conversion of the numeric table elements to a symbol that provides 
a meaningful "picture" of the computation. 



Problem 4. 1 



Rotate the graph of the sine curve of problem 2.2 so that the 
X-axis is horizontal and progresses across the screen. 



Solution 



'filen3met"a4pl" 

' PurposeJ sine W3ve 

' author J JpS 1/80 



10 

20 

30 

40 ' 

45 CLEAR 200 J 

70 FOR A=0 TO 



across screen 



30 

100 

140 

150 

160 

190 

200 

210 

999? 



DEFINT P: DIH P(64,16)t CLS 
8 STEP ^25 
X=A*7t Y=SIN(A-l>*7+8: P(X»Y)=1 
NEXT A 

FOR Y=14 TO STEP -It X$="" 
FOR X=l TO 62 

IF P(X,Y)=1 THEN X$=X$+''«" ELSE X$=X$+" 



NEXT XJ 
NEXT Y 
GOTO 210 
END 



PRINT X$ 
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Discussion 



Suggestions 



• A lot of memory is used to store the table. Each position of 
the table is an integer value that indicates whether or not 
that position is on the sine curve. 

• Each hne of output is produced directly by building a string 
of mostly blanks and a few asterisks "(*)" from scanning a 
row of the table. 

» The program uses the fact that BASIC sets all variables to 
initially. This is not a good programming practice, because 
if the program was to be used as a subroutine and was called 
mote than once, it would "remember" all elements of the 
table that had been set previously to 1 . To make the program 
more generally useful, you should set each element of the 
table to zero before each use. 

® Try modifying the program so that a composite graph of 
sines and cosines can be made. You'll have to devise a way to 

cosine, and no point at all. What if the sine and cosine 
intersect? Maybe a fourth symbol could be used to show 
this occurrence. 

® Cause the X-axis and Y-axis to be printed along with the 
graphs. 
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Problem 4.2 



Display the changing thermal gradient around a rectangular 
fireplace located at the center of a rectangular room. Imagine a 
room surrounded by exterior walls on three sides with a Franklin 
stove in its center. It's a cold, overcast winter day. What is the heat 
distribution in the room as the exterior of the Franklin stove begins 
to heat from 70° F to 400° F? 



" ■-• .- ■.■■• ."< 

.'Vf ."•.■•.•..' 

'. . '" ' • • .'■■■. ' 

-■. " * '_ . \ I 

____________ «. * 

* " " ■ « » * ' 

. t t 

'y'^^-'^ __.._ _ =':V.\ 






-^.:.n'"'-v. 












The problem resembles a problem on page 98 of Daniel D. 
McCracken's A Guide to FORTRAN Programming, (Wiley, 1965). 



Solution 



Consider the room to be 40 feet long and 30 feet wide. The 
exterior walls are at a constant 0° F and the interior wall is a 
constant. 70° F. 



® Reserve a 30 x 40 integer table X in memory, with X(0,1) to 
X(0,39) held at a value of 70; X(30,0) to X(30,40), X(0,0) 
to X(0,30), and X(0,40) to X(30,40) held at a value of 0. 
These are the walls of the room. The 6-foot wide by 4-foot 
deep center area is the Franklin stove that starts at 70° F and 
ends at 400° F. 

« Proceed to compute the temperatures between wall and 
stove, from X(l,l) to X(l,39), then X(2,l) to X(2,39), . . . , 
through X(29,l) to X(29,39), calculating each point on the 
basis of its neighbors according to the formula: 

X(I,J)-(X(I-l),J)+X(I,J-l)+X(I+l,J)+X(I,J+l))/4 
This formula calculates the temperature of a point by 
averaging the temperatures of that point's four neighbors. 

• Repeat the computations for as many iterations as the user 

wishes. 
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® 



Convert all numeric values of table X to characters one 
64-character line at a time using the chart of symbols belovi' 
to indicate various temperatures. 



Integer value 


Symbol 


0- 9 
20- 29 
40- 49 


A 
B 
C 



380-389 U 

400-409 V 

All temperatures in unspecified intervals like 10-19, 30-39, 
etc, are symbolized with a blank. 

• Paint the picture on the screen or line printer one line at a 
time. 

• Repeat the above process increasing the temperature of the 
Franklin stove by .50 degrees, until it reaches 4O0 degrees. 

• Continue the above for as many iterations as the user wishes 
or until the output is a picture of the room at equilibrium 
conditions. 



in 3 healed room 



60 'set UP inilisl conditions 

80 DEPTH=30: UIDTH=40' 'room messurements 

90 LL=5/12$yiDTH: LR=7/12WIEfTH 'stove position 

100 LT=5/12«iEPTH: LB=7/12«riEPTH 

110 INPUT "INNER? OUTER WALL TEMPERATURES" flHyOU 

115 INPUT "STARTING^ LAST? STEP TEMPERATURES OF STOVE" yST.FI»CY 

118 INPUT "TOTAL ITERATIONS? NUHBER PER PRINTING CYCLE" 7lT?Q 

120 DIM X(DEPTH?UIDTH)7 S$( 41 > 

125 LPRINT "INMER="?INy"0UTER="50U?"ST0ME="IST»T0"FrBY"CY 

127 LPRINT "ITERATIONS="nTf "NUMBER/PRINTING CYCLE="fQ 

130 FOR 1=0 TO 40 STEP 2J READ S$(I); NEXT I 

140 DATA Af B? C? D? E? F? G? H? I? J? K 

145 DATA If Hf N? Of P? Qf R? S? T? U? V? W? X» Y? Z 

150 FOR 1=1 TO 40 STEP 2t S$( I )=" "! NEXT I 



:iO 


'f iJensmel' 


'34p2" 








20 


' purposed 


gr3Ph thermal 


5r 


sdien 


t 


30 


' suthor; 


jps 1/80 








40 


/ 










■50 


CLEAR 300 J 


DEFINT A~Z 
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160 'set iniiisl room ieiripersiure to rsndoiri between OU & ST 

170 FOR 1=1 TO DEPTH-lt FOR J=l TO WIDTH-1 

130 X(IyJ)=RND(ST-0U)/10 

190 NEXT .1,1 

200 'set inner wsll? bottorrt outer wall to starting temperatures 

210 FOR 1=0 TO WIDTH;X(0»I)=IN/10: X( depths I )=0U/10t NEXT I 

220 'set left and right outer walls to starting temperatures 

230 FOR 1=0 TO DEPTH: X( I? 0)=0U/10t X( IjWIDTH )=0U/10J NEXT I 

240 'set stove to starting temperature for this cycle 

250 FOR S=ST/10 TO FI/10 STEP CY/10 

260 LPRINT: LPRINT: LPRINT "STOME is AT"S*iO"DEGREE8%TIME$ 

270 FOR I=LT TO LB: FOR .J=LL TO LR: X(IyJ)=S: NEXT J, I 

280 CLS 

290 FOR N=l TO IT: I=0: GOSUB 400 

300 FOR 1=1 TO DEPTH-1 

302 'weave calculations back and forth 

304 'instead of always left to right 

305 IF I/2=INT(I/2) THEN Sl=i: S2=UIDTH-i: S3=l 

ELSE Sl=WIDTH-i: S2=i: S3=-l 
310 FOR J=S1 TO S2 STEP S3 

320 'calculate all inner values, if stovej bypass 

330 IF I>=LT AND I<=LB AND .J>=LL AND .J<=LR THEN NEXT J 

340 X(IfJ)=(X(I-lf.J)+X(I+l?J)+X(I?J-l)+X(I».J+l)+2)/4 

350 NEXT J: GOSUB 400 

360 NEXT I : GOSUB 400 

370 NEXT N 
380 NEXT S 
390 GOTO 390 

400 'subroutine to graph a single line 
410 A$="": FOR K=0 TO WIDTH 

•420 'the syiRbol * is reserved for the stove's position 
430 IF K>=LL AND KOLR AND I>=LT AND I<=LB 

THEN A$=A$+"r ELSE A$=Af+S$( X(IfK) ) 
440 NEXT K 
450 PRINT MfHfl 

460 IF INT(N/Q)=N/Q THEN LPRINT AffNJI 
470 RETURN 
500 CLEAR 100 
9999 END 
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JmER= 70 OUTER= STOVE= 70 TO 400 BY 50 

ITERATIONS= 9 NUMBER/PRINTING CYCLE= 3 



STOVE IS AT 70 DEGREES 00/00/00 00J35:i8 

A A 

A CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC A 

A DEfRBBBBEBBBBBBBBBBBBBBBBBBBBBBBBBBBBB A 

A AA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAA B CCCCCC B AAAAAAAAAAAAAAA 

AAAAAAAAAAAAAA *#*#***# AAAAAAAAAAAAAAA 

AAAAAAAAAAAAA BC#*#***##C AAAAAAAAAAAAAAA 

AAAAAAAAAAAAA BC###*#**tCB AAAAAAAAAAAAAA 

AAAAAAAAAAAAA BC#*t###**CB AAAAAAAAAAAAAA 

AAAAAAAAAAAAA BC#*#I##*#CB AAAAAAAAAAAAAA 

AAAAAAAAAAAAA BC###*##t#CB AAAAAAAAAAAAAA 

AAAAAAAAAAAAA B CCCCCCCC AAAAAAAAAAAAAA 

AAAAAAAAAAAAA BBBBBBBBB AAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAA AAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 



3 





3 


1 


3 


2 


3 


3 


3 


4 


3 


5 


3 


6 


3 


7 


3 


8 


3 


9 


3 


10 


3 


11 


3 


12 


3 


13 


3 


14 


3 


15 


3 


16 


3 


17 


3 


18 


3 


19 


3 


20 


3 


21 


3 


22 


3 


23 


3 


24 


3 


25 


3 


26 


3 


27 


3 


28 


3 


29 


3 


30 
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Discussion » Tlie previous output shows the effect of starting the room's 

temperature a degrees, the same temperature as the 
exterior walls. We arbitrarily started the interior of the 
room at various random settings between and the 
temperature of the stove, and while not realistic, it seems to 
be most effective in reaching equihbrium quickly. 

INNER= 70 OUTER= STOVE= 70 TO 400 BY 50 
;[TERATIONS= 9 NUMBER/PRINTING CYCLE= 3 



BTOVE IS AT 70 DEGREES 00/00/00 OOt 16148 

A A 3 

AC DDDnDDDDDDDDDDDDDDDDDDDDDDDDDDD A 3 1 

A C CCCCBA 3 2 

AB CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC BA 3 3 

AB CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC BA 3 4 

AB CCCCCCCCCCCCCCCCCCCCCCCCCCCC BA 3 5 

AB CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC BA 3 6 

AB CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC BA 3 7 

AB CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC BA 3 8 

AB CCCCC CCCCCCCCCCCCCCCCCCCCCC BA 3 9 

AB CC CCCCCCCCCCCCCCCCCCCCCCC BA 3 10 

AB CCC CCCCCCCCCCC B A 3 11 

AB CCCCC D****t**# CCCCCCCCCCC B A 3 12 

AB CCCCCC D******** CCCCCCCCC BA 3 13 

AB CCCCCCCCC D*******#D CCCCCCCCCC BA 3 14 

AB CCCCCCCCCC D****#**#D CCCCCCCCCCC BA 3 15 

AB CCCCCCCCCC l!**#**##*n CCCCCCCCCCCC BA 3 16 

AB CCCCCCCCCC D##*t#**#D CCCCCCCCCCCC BA 3 17 

AB CCCCCCCCCCCC BD CCCCCCCCCCCC BA 3 18 

AB CCCCCCCCCCCCCCCCCCCCCCCC CCCCCCCC BA 3 19 

AB CCCCCCCCCCCCCCCCCCCCCCCC CCCCCCC BA 3 20 

AB CCCCCCCCCCCCCCCCCC CCCCCCC BA 3 21 

AB CCCCCCCCCCCCCCCCCCCC CCCCCCC BA 3 22 

AB CCCCCCCCCCCCCCCCCCCCC CCCCCCCCCCCC BA 3 23 

AB CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC BA 3 24 

AB CCCCCCCCCCC CC CCCCCCCCCCCCCCCCC BA 3 25 

AB CCCCCCCCCC CC CCCCCCCCCCCCCCCCC BA 3 26 

AB CCCCCCCCCCC CC CCCCCCCCCCCCCCC BA 3 27 

AB CCC CC BA 3 28 

A BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB A 3 29 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 3 30 
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® The program was limited to this size room for practical 
reasons of time. It takes our TRS-80 about 10 minutes to 
proceed from one graph to the next, with an interval size of 
5 iterations. 

Suggestions • Use other symbols to represent temperature, such as: 

Temperature Symbol 



0- 9 


blank 


10-19 




20-29 




30-39 


? 


40-49 


- 


.50-59 


- 


60-69 


1 


1 KJ 1 ^ 


T 

i. 


80-89 


L 


90-99 


T 



400-409 # 



A minor modification of this program can yield startingly 
different results. The modification is based on doing an exact 
point-by-point calculation of a location's value. This kind of 
calculation isn't appropriate for thermal gradients, as was the case 
with the wood-burning stove, but it works for a wide variety of 
applications in which point values are based on field effects, such 
as electricity, gravitation, and sound. 

Consider a "generator" of such a field located at a point in the 
middle of a rectangularly shaped area. The field strength at any 
other point is proportional to the square of the distance away from 
the generator. Thus a sound is one fourth the volume at 20 feet 
from a speaker as it is 10 feet away. If there are two speakers 
located in the rectangular area, the intensity of the sound at any 
point is the sum of the sound from the two speakers. It is easy to 
determine the distance to each of the speakers by xase of the 
Pythagorean theorem (c^=a^ +b^ ). Then the process of summing 
the individual intensities, taking into account their distances and 
original intensities, yields the total amount of sound at a selected 
point. Repeat this process for all points on the grid, and represent 
point intensities by graphical means. The effect is a "picture" of 
the sound sources and their acoustic "fields". 

The same process can be used to picture any physical field 
phenomenon, such as gravitational "wells" around planets and 
ionic field strengths. 
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Problem 4.3 



An excellent discussion and example of this method of 
graphing can be found in BASIC and the Personal Computer by 
Dwyer and Critchfield, (Addison- Wesley, 1978), pages 304-306. 

Display the point-by-point ionic field strength that surrounds 
each of up to five electrical sources. Each source can be positive or 
negative in relation to the background field strength. Each source 
will have a strength from -2 to +2. Pictorially, a negative field will 
be represented as a series of digits and characters ranging from 9 
through to such characters as /,!,+,*,... , %, and @. A positive 
field will be represented as a series of letters, from A to Z. Field 
areas closest to background will be represented as 9s or As. 



Solution 



10 
20 
70 
40 
45 
50 
60 
70 

eo 

90 ' 

100 

110 

120 

130 

140 

150 

160 

170 

J. 80 

190 

200 

210 

220 

230 

235 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 



to grsph 
Jp^ 2/80 



electric charges 



I ilensuie! 
' purposet 
' author J 
CLEAR 200 

ran a$(52) 

DATA 35?64f36y42f38?37y94?91j93j95f43y34f40y44y33 
IfATA 47?43f49y50f51..52?53?54f55j56f57 
FOR 1=1 TO 26: READ At A$(I >=CHR$( A )t NEXT I 
FOR 1=27 TO 52; A$( I )=CHR$( 1+38 ){ NEXT I 



N=5t A(1)=15J B(l)=12: A(2)=18: 
B(3)=35! A(4)=70t B(4)=15; A(5)^ 
GOTO 180 
CLS; INPUT "HOW MANY CHARGES" yN 



B(2)=50J A(3)=50 
=70 : B(5)=45 



FOR 1=1 
PRINT 



TO N 

"TYPE X AND Y POSITIONS OF CHARGE" 51? 

INPUT A(I)?B(I) 
NEXT I 
F=SQR( 3)/ 2 

FOR 1 = 1 TO NJ A(I)=A(I)*F: NEXT I 
C(1)=1J C(2>=i: C(3)=-2 
PRINT "TYPE IN THE SIZE 
FOR 1=1 TO N 

PRINT "CHARGE "51?; INPUT C(I); NEXT I 
F=SQR(3)/2 
FOR J=l TO 121 



C(4)=-i: C(5)=lt GOTO 240 
OF EACH CHARGE. USE 3 FOR 



3Q" 



STEP 



X=J*F 

FOR Y=l 

GOSUB 



TO 61 
1000 

Z=( V+1 >*26 

IF Z<1 THEN B$=" "J GOTO 320 

IF Z>52 THEN B$="@": GOTO 320 

IF Z>INT(ZH.5 THEN B$=" " ELSE B$=A$(Z) 

LPRINT B$; 

NEXT Y 
LPRINT: NEXT J 
GOTO 350 
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:l.00O 'SUBROUTINE TO CALCULATE FIELJi STRENGTH 

1010 M=0 

1020 FOR 1=1 TO N 

1030 X1=X-A(I); Y1=Y-B(I) 

1010 R=SQR(Xl)i(Xl+Yl*Yl> 

1050 IF R>0 THEN y=yf C(I )/R ELSE M=10000t RETURN 

1060 NEXT I 

1070 RETURN 

9999 END 



AAAAAAA 
AAAA 



AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAA 



AA 
A 

BR C 

BB CDE 

BB C 

BB CDE 

A EB CD 

AA BB CO 

AAA BBB 

AAAAA 



BBBBBBBBBBB 
BBB CCCCC BBB 
DBDBD CC BE 
ED C BB 
ILNLI EBC B 
L Y@YL D B 
LNL EBC BB 
F F 
D 



AAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAA 
AAAAAAAAAAAAAA 
AAAAAAAAAAAAAA 
AAAAA AAAAA 

AAAA AAAA 



AAAAA 
BBBBBBB AAA 

BBB BBB AA 

BBB CC CC BB A 
BB C D EEE D C B 
BB C GIG C BB 
BB CD GK e K II B 
DC BB AAAA AAAA B CDEGK S KG DC BB 

C B AAA AAA BB D HIHG C B 

BB AAA 99?99 AAA B C D D CC BB A 

AAA ?999999999999 AAA BB CCC BB AA 

AAAAAAAAAAAA 999999 99999 AA BBBB AAAAA 

999999 999 AAAAAAAAAAAAA 

999999 99999999 8888888889883 9999 

999999999999999 888888 88888 999999 

99999999 B8B88 7777777777 888 999999999999 



80888S 7777 

8SS8888 7777 666 

8B088S88 777 66 5 

83888888088 7777 66 55 A 

fl88S80C88 7777 66 5 + 

088888 77777 66 5 4 1 



3 22 



777 8888 
66 77 888 
5 6 77 888 



999999999 

999999 

999 



1888 



BE 



7777 
777 
777 
77 

771 
777 
7777 



77777 66 
77777 666 
77777 6666 

77777 66666 

77777 666666 
7777 6666 
777 66 5555555 
66 55 44 555 
66 55 3 3 4 55 
6 5432 / 234 55 
6 5 •/. y. 0? 455 

6 5 .X Z 2 5 
6 54 71 1234 5 



55 3 
5 4 
5 321 
55 4 32 
555 44 

c-crtrc; 



3 5 66 77 8838 9 
/ 701234 5 6 77 8888 
] 3" 34 6 7 888 
t{\ 56 7 888 
*+! 6 7 8888 
1 Y 345 6 77 888 
/ /012345 6 77 888 
3 22 4 56 7 888 
444444 5 6 7 888 9999999 
:od5555 66 7 8 9999999999999999 
6666 77 8 9 AAAAA 99999999 



6666 77 

666 77 i 

666 777 8 

66 777 88 

.6 777 88 



4 333 4 



lit 



888 

nno 



5 66 777 
666 777 
7777 

77777 66666 7777 888 
777777 77777 PB88 
7777777777777777 88888 
77777777 888888 
8B88888S 
?.?.•& 8888888888 

088888 888888888888 

r!BS888S8BC3S33S8S88BS3S388888SB8 
88RB88CS88888888888888888838888 
088888888888388888888888888388 
0B8B88888BSS888883888888888S8 
OB3B888SBB888B8888S88888888 
0B8B8888B8383888388888888 
08888888888888388888883 
88880808888888888 



8 9 B CC BB AA 99999 

ABC G EDCB A 9999 

ABC IQ@Q FBCB AA 999 

9 AB IQ0R EDCB AA 999 

9 AB D G G B AA 999 

9 A B C CC B AAA 999 

99 AA BBBBB AAA 9999 

999 AAAAAAAAAA 9999 

999 999999 

9999 99999999 

9999999999999999999999 

999999999999999999999 

99999999999999999999 

999999999999999999 

9999999999999999 

9999999999995 

99999999 
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Discussion 



Suggestions 



® Notice that tlie conversational portion of the program has 
been bypassed by the statements at 100-120 and 180-200. 
This was done so that a test could be run with 5 charges 
located on the rectangular area. 

® Beware! This program is a number-crunching sloth. You 
must have patience with the slowness of the output. It is 
quite extraordinary looking when complete. 

® Rewrite the program to display other field relationships. To 
increase the range of intensity from -2 and +2 to, say, -10 
and +10, change line 180 to 
180F=SQR(3)/10 

® To change the characters that represent the various 

intensities, rewrite the DATA statements in lines 50 and 60 
and the loops in 70 and 80. They are presently written to 
use 52 ASCII characters. 



Problem 4.4 



Display the varying concentrations of up to six ionic species 
that may coexist in a solution of varying acidity. Solving this classic 
problem in analytic chemistry will provide a chemist with the abihty 
to determine at a glance what the "soup" of acid contains at a 
particular level of acidity, or pH. Without such a graphical aid, the 
chemist must rely on rather complex and time-consuming 
calculations to obtain the same information. 



Solution 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 



f ilensise* 

purpose? 

sulhort 



chemicBl 
Jp3 9/80 



SOUP ^rsphins 



colsf intervals 
DATA simlsS K 



to 5 



CLEAR 4000 

DIM G$(26>?PK(6)?K(6)yA(6)yY(6) 
U=7i: UI=5 'Set UP width to 71 

INPUT "Which included scid from the 
FOR J=l TO Kt READ A$fN: Y( )=1 
FOR 1=1 TO m READ PK( I ) 
' Get ionizstion constsntsy cuisulstive products 

K( I )=10C( -PK( I ) ): Yd )=K( I )*Y< I-l > 

Note the left bracket prints for an up-srrow 
NEXT I 
NEXT J 

LPRINTI LPRINT 

LPRINT TAB(5)5 CHR$(1)J A$ 'Double-wide 
LPRINT TAB(5)5 CHR$(2)5 "the"5N5"pK5 are J"? 
FOR 1=1 TO NJ LPRINT TABd^lO)? PKd)?: NEXT 
LPRINT J LPRINT 



I 
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210 ' Prepare the bscKSround grid 

220 ' First? blsnk out inner strings 

230 FOR 1=2 TO 25: G$( I )=STRING$(U-2?32)t NEXT I 

240 ' Then doi the outer? intervsi 5trin:3s 

250 FOR 1=1 TO 26 STEP 51 G$( I )=STRING$( W-2?%" >J NEXT I 

260 ' Then dot left? risht? center columns 

270 FOR 1=1 TO 26 

280 Gf-( I )=" » nLEFT$( G$( I )?34 )+" /'fRIGHT$( G$( I )?34 H^ " 

290 NEXT I 

300 'Go through pH rsn^e 

310 ' caiculste H-ion concentration 

320 FOR PH=0 TO 14 STEP ,2\ PRINT PH?: H=10C(-PH)I D=0 

330 ' Calculate H-ion cumulative products? denom* 

340 FOR 1=0 TO NJ Z( I)=HC( N-I)*Y(I ){ D=D+Z<I): NEXT I 

350 ' Calculate Alpha value (activity of subspecies) 

360 FOR 1=0 TO N: A(I )=Z( I VD 

370 ' Calculate vertical displacement M (which string) 

330 ' and horizontal displacement B 

390 'v'=A(I«25+1.5J B=PH!lcUI+l 

400 ' Substitute appropriate disEit 

410 ' in proper position of proper string 

420 MID$(G$(V>?B?1)=CHR$(48+I) 

430 NEXT I 

440 NEXT PH 

450 PRINT 

460 T=1.2 'T is vertical concentration marker to 1,0 

470 FOR 1=26 TO 1 STEP -1 

480 IF INT((I-l)/5)!lf5<>I-l THEN 520 

490 T=T-,2 

500 IF T<.2 THEN T=0 

510 LPRINT T? 

520 LPRINT TAB(7)? G$( I ) 

530 NEXT I 

540 LPRINT " pH=->"5 

550 FOR 1=0 TO 14? LPRINT TAB( IWI+7)n? J MEXT I 

560 LPRIWTJ STOP 

1000 'ttttt data statements with acid names? pKs 

:i.01O DATA "Ethylene Diamine Tetra-acetic Acid (EDTA)" 

1020 DATA 4f 2,00? 2.67? 6.16? 10,26 

1030 DATA "Arsenic Acid"? 3? 2,22? 6.98? 11.4 

.1040 DATA "Carbonic Acid% 2? 6.35? 10,33 

1.050 DATA "Citric Acid"? 3? 3,13? 4,76? 6,40 

1060 DATA "Malic Acid"? 2? 3,40? 5,05 

1070 DATA "OKalic Acid"? 2? 1,27? 4,27 

1080 DATA "Phosphoric Acid"? 3? 2,15? 7,20? 12.4 

1090 DATA "Par ophosphoric Acid"? 4? .85? 1.96? 6,54? 8,44 

1100 DATA "Salicylic Acid"? 2? 2,97? 13,0 

1110 DATA "Tartaric Acid"? 2? 3,04? 4,37 

1120 DATA «DCTA% 4? 2,40? 3.52? 6.12? 11.7 

9999 END 
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Arsenio Aolci 

the 3 pKs are! 2.22 6.99 11.4 

1 000 1 1 1 1 1 1 22222 33333 

000 11 11 . 222 222 333 

11 11 . 2 2 3 

.223 

1 1 

......t0.....1»........t...>..l.»>««2<».>...>>.«»..«2.t...3(». ..••••> 



.8 



,b 



,4 







1 



1 .; 



.....»...».l....».t..»>...>»»>*'l'>'"»»'*»'''''*''''"*'^'''''*' 



2, 
1. 



1 1 



1 



2 .1 



....... li. ... 0.... ..»..•.•»>. .2. . ...1.. ....... ...... 3..... i.i>. ...<•• 

2 

1 .13 2 

1 00 22 . 1 3 2 
111 00 22 . Ill 333 222 

333333333333333333333333333333333333333333333333 1 11111111111111 1 122222 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 



Csr-bcjnic Aoici 

Ihe 2 pKs sret 6.35 10.33 

OOOOOOOOOOOOOOOOOOOOOOOO 22^^^^^^^^ 

00 . 11111111 222 

.1 1 2 

1 12 

. 12 

,9 , 0...t.l.... • '••' 

1 2 
1 . 

. 1 
1 . 2 

,6 • 0.. ••♦• 

12 
1 
. 

21 

,4 1 • .. • 

. 1 

1 . 2 
. 

2 1 
....1 ••••• 

1 . 2 1 
10 2 1 

1 .0 2 1 
11 . 000 22 HI 

o'>ooTmTj'>T)T:>'????'599??'7?'??722222222222222000000000000000001 1 1 1 1 1 1 1 1 1 



pH=-> 



"l 2 3 4 5 6 7 8 9 10 11 12 13 14 
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Mslic Acid 

Ihe 2 pKs are: 3.4 5.05 



.6 



.4 







000000000. ...................... .2222222222222222222222222222222222222 

000 22 

2 

2 



111 2 
1 
1 2 
1 



1 



1 



2 

1 
1 

2 

.........*...1.....0».t...l. ...... 

2 1 
1 2 1 
1 2 1 
HI 22 11 

222222222222222222 0000000001111111111111111111111111111111111111 

-> 1 2 3 4 5 6 7 8 9 10 11 12 13 14 



********t*t*t**tt*t*tttt*t***ttti 



(tt»»t*«»*tt*»*»»*t***i 



************** 



t*******t*tt**t 



P'rrr' oi=>-hosiRhor- i c Aoicf 

the 4 pKs are! .85 1.96 6,54 8.44 



44444444444444444444 

44 
44 



3 
2 3 

2 

12 3 

1 1 2 

2 3 

1 2 

1 

1 1 2 

3 

10 2 1 

3 2 
»I*t(ttOf**tflt»t»»* * * t * *********** 
2 3 

? 1 3 

1 3 

111 33 44 22 33 
4444444444444444444444444444444444111111222222222233333333333333333333 
pH=-> 1 2 3 4 5 6 7 8 9 10 11 12 13 14 



>***^*t****t*****t*tt*********t* 



t**t6*t******t**it**tttttttt**** 



* * * * *t*jt************t**t*ttttt *» 
2 4 3 
24 
42 33 
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Discussion 



A wide variety of disciplines are plagued with experimental 
conditions such as these. Interfering signals in electronics, 
competing species in genetics, varying levels of soil 
conditioners, fertilizers and hybrids in agriculture-all lend 
themselves to this graphing technique. The calculations for 
for each application are different, but the terminal result is 
the same: The experimenter wants a graph of competing, 
interfering, or mutually affecting species. 



Suggestions 



RUN this program with various acids to get a feel for the way 
pKs affect competing species. Here is a list of acids and their 
pKs for you to try. 



Name 



pKl pK2 pK3 pK4 



Arsenic acid 


2.22 


6.98 


11.4 




Carbonic acid 


6.35 


10.33 






Citric acid 


3.13 


4.76 


6.40 




Malic acid 


3.40 


5.05 






Oxalic acid 


1.27 


4.27 






Phosphoric acid 


2.15 


7.20 


12.4 




Pyrophosphoric acid 


0.85 


1.96 


6.54 


8.44 


Sahcylic acid 


2.97 


13.0 






Tartaric acid 


3.04 


4.37 






EDTA 


2.00 


2.67 


6.16 


10.26 


DCTA 


2.40 


3.52 


6.12 


11.7 



• Add a table-printing feature to this program that prints out 
the concentrations of all species present at each pH. 
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Problem 4.5 



Produce a chart on the printer that displays blocks of all 
printable characters so that an enterprising programmer can scan it 
to pick out likely candidates for future density gradient graphs. 
Each block is to be .5 characters tall and 8 characters wide, and 
separated from its neighboring blocks by 8 spaces. Above each block 
is to be printed the ASCII code value which that character represents. 



Solution 



10 'filens!?iet"g4p5" 

20 ' purposeJ produce 3 chart to show charscter densities 

30 ' author: Jdr 8/80 

40 ' 

50 1=32 

60 FOR L=l TO 4 

70 FOR K=l TO 6 

80 LPRINT I?I+l7l+2fI+3 

90 FOR J=l TO 5 

i (jA i_DpTMT crpjktr-tf Q.r \. ♦ i poryr cTDTMr*/ c. rxi \. 

110 LPRINT STRING$(8fIf2)f 1 LPRINT STRING$( 8yI+3 > 

120 NEXT J 

130 LPRINT : LPRINT 

140 1=1+4 

150 NEXT K 

160 FOR K=l TO 8 

170 LPRINT 

180 NEXT K 

190 NEXT L 

9999 END 
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32 


33 


34 


35 




!!!!!!!! 


n H 11 II n It It n 


**♦*»*** 




!!!!!!!! 


u II II It n n u It 


»*****»* 




MM!!!! 


n 11 H II n n H II 


**#***#♦ 




!!!!!!!! 


11 u It II n It n H 


nnnu 




!!!!!!!! 


It II II It n » ti If 


**#*♦♦** 


36 


37 


38 


39 


$$$$$$$$ 


T/:aiv/.y. 


&&&&&&M 


//////// 


$$$$$$$$ 


TL'aU'/J. 


&&&«.&&&& 


t i t 1 f I t I 


$$$$$$$$ 


7.7.y.U.%7.% 


&&«.&&&&& 


i t i t i I 1 t 


$$$$$$$$ 


7.7.Z7.Z7.7.7, 


UUUii 


i t t t I 1 1 I 


$$$$$$$$ 


7.7.yj.7.7.y.7. 


&&&&&&&& 


1 i i t t 1 1 t 


40 


41 


42 


43 


<(((<((( 


)))))))) 


^^*^tV*+^* 


++++++++ 


(((((((( 


)))))))) 


tnnnt 


++++H++ 


(((((((( 


))))))>) 


}^J^if.i^^]^i^/f. 


++++++++ 


((((<((( 


)))))))) 


uunn 


++++++++ 


<((((((( 


)))))))) 


ttmnut 


++++++++ 


44 


45 


46 


47 


9tft9fff 






//////// 


?>?)'»)'?)' 






//////// 


vrtftrrt 






//////// 


9tff » »»f 






//////// 


y »f f f fft 






//////// 


48 


49 


50 


51 


OOOOOOOO 


11111111 


22222222 


33333333 


OOOOOOOO 


UlUlll 


22222222 


33333333 


OOOOOOOO 


11111111 


22222222 


33333333 


OOOOOOOO 


11111111 


22222222 


33333333 


OOOOOOOO 


11111111 


22222222 


33333333 


52 


53 


54 


55 


44444444 


55555555 


66666666 


77777777 


44444444 


55555555 


66666666 


77777777 


44444444 


55555555 


66666666 


77777777 


44444444 


55555555 


66666666 


77777777 


44444444 


55555555 


66666666 


77777777 
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56 
88888888 
88888888 
88888888 
88888883 
88888888 



57 

99999999 
99999999 
99999999 
99999999 
99999999 



58 



59 



« » « » 

* » * * 



H 5 ? 5 ? f 5 
5 5 ? ? ? f 5 5 



60 
«««« 
«««« 
«««« 
«««« 
«««« 



61 



62 
»»»» 
»»»» 
»»»» 
»»»» 
»»»» 



63 

■f'ff7?7f'f 

???????? 
?'?7'?'?7?7 



64 

e@g@(?eee 
(?§g§e@ge 



65 
AAAAAAAA 
AAAAAAAA 
AAAAAAAA 
AAAAAAAA 
AAAAAAAA 



6c& 

BBBBBBBB 
BBBBBBBB 
BBBBBBBB 
BBBBBBBB 
BBBBBBBB 



67 
CCCCCCCC 
CCCCCCCG 
CCCCCCCC 
CCCCCCCC 
CCCCCCCC 



68 
DDDDDDDD 
DDDDDDDD 
DDDDDDDD 
DDDDDDDD 
DDDDDDDD 



69 
EEEEEEEE 
EEEEEEEE 
EEEEEEEE 
EEEEEEEE 
EEEEEEEE 



70 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 



71 
GGGGGGGG 
GGGGGGGG 
GGGGGGGG 
GGGGGGGG 
GGGGGGGG 



72 
HHHHHHHH 
HHHHHHHH 
HHHHHHHH 
HHHHHHHH 
HHHHHHHH 



73 

IIIIIIII 
IIIIIIII 
IIIIIIII 
IIIIIIII 
IIIIIIII 



74 
JJJJJJJJ 
JJJJJJJJ 
JJJJJJJJ 
JJJJJJJJ 
JJJJJJJJ 



75 
KKKKKKKK 
KKKKKKKK 
KKKKKKKK 
KKKKKKKK 
KKKKKKKK 



7b 
LLLLLLLL 
LLLLLLLL 
LLLLLLLL 
LLLLLLLL 
LLLLLLLL 



77 
HMMMHMHH 
HHHHHMMM 

MMMUUMMM 

Vll t) > M U > 

MMMMMMMM 

HMMMHHHM 



78 
NNNNNHNN 
NNNNNNNN 
NNNNNMHH 
MNNNNMNN 
NNNNNNNN 



79 
OOOOOOOO 
00000000 

OOOOOOOO 
OOOOOOOO 
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80 

PPPPPPPP 
pppppppp 

PPPPPPPP 
PPPPPPPP 
PPPPPPPP 



81 
QQQQQQQQ 
QQQQQQQQ 
QQQQQQQQ 
QQQQQQQQ 
QQQQQQQQ 



82 
RRRRRRRR 
RRRRRRRR 
RRRRRRRR 
RRRRRRRR 
RRRRRRRR 



83 
SS8SSSSS 
SSSSSSSS 
SSSSSSSS 
SSSSSSSS 



84 
TTTTTTTT 
TTTTTTTT 
TTTTTTTT 
TTTTTTTT 
TTTTTTTT 



Qtr 

uuuuuuuu 
uuuuuuuu 
uuuuuuuu 
uuuuuuuu 
uuuuuuuu 



86 
VMWMVW 
MWWMW 
WWWMM 

ywwwM 

VMWVMW 



87 
UUUUWWUU 
UUUUUUUU 

uuuuuuuu 
uuuuuuuu 
uuuuuuuu 



88 

xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 
xxxxxxxx 



89 
YYYYYYYY 
YYYYYYYY 
YYYYYYYY 
YYYYYYYY 
YYYYYYYY 



90 
ZZZZZZZZ 
ZZZZZZZZ 
ZZZZZZZZ 
ZZZZZZZZ 
ZZZZZZZZ 



91 
CECCCCEE 
CEEECEEC 
EEEECEEE 
CEEECEEE 
CEEEECEE 



92 
WWWW 
WWWW 
WWWW 
WW\W\ 
WWWW 



93 



94 

tttttt 
tttttt 
tttttt 
tttttt 
tttttt 



96 



x \ \ \ \ 

\ \ \ X X 

\ X X X X 

X X X X X 

X X X X X 



97 

33333333 
33333333 
35333333 
33333333 
33333333 



98 

bbbbbbbb 
bbbbbbbb 
bbbbbbbb 
bbbbbbbb 
bbbbbbbb 



99 

cccccccc 
cccccccc 
cccccccc 
cccccccc 
cccccccc 



100 
dddddddd 
dddddddd 
dddddddd 
dddddddd 
dddddddd 



101 
eeeeeeee 
eeeeeeee 
eeeeeeee 
eeeeeeee 
eeeeeeee 



102 
ffffffff 
ffffffff 
ffffffff 
ffffffff 
ffffffff 



103 
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104 


105 


106 


107 


hhhhhhhh 


iiiiiiii 


JJJJJJJJ 


RkKKRRRk 


hhhhhhhh 


iiiiiiii 


jJJJJJJJ 


RkkKKKkk 


hhhhhhhh 


iiiiiiii 


JJJJJJJJ 


KkkKRRkk 


hhhhhhhh 


iiiiiiii 


JJJJJJJJ 


RkkkRRRk 


hhhhhhhh 


iiiiiiii 


JJJJJJJJ 


RkkRRRkk 


108 


109 


110 


111 


11111111 


MmMsmtm 


nnnnnnnn 


oooooooo 


11111111 


MfttfSl&WiMtB 


nnnnnnnn 


oooooooo 


11111111 


BtiiimiiBiniriiri 


nnnnnnnn 


oooooooo 


11111111 


ismttiRBiamm 


nnnnnnnn 


oooooooo 


11111111 


BimmfliiBi&iriiTi 


nnnnnnnn 


oooooooo 


112 


113 


114 


115 


PPPFPPPP 


HQGaaQQO 


rrrrrrrr 


S5SS55SS 


rsppppppp 


QOQCtflQQB 


rrrrrrrr 


55555555 


PPPPFPPP 


aQa&QSQa 


rrrrrrrr 


55555555 


pppppppp 


RHRRQQQG 


rrrrrrrr 


5SSS5555 


PPPPFPPP 


QQRSCtGOG 


rrrrrrrr 


55555555 


116 


117 


118 


119 


Ultitil 


uuuuuuuu 


vvvvvvvv 


UMMWWMWW 


iUtllli 


UUIIUUUUU 


vvvvvvvv 


UWMMWUWU 


tlllitil 


uuuuuuuu 


vvvvvvvv 


HWWMWHMW 


iUltltl 


uuuuuuuu 


vvvvvvvv 


WWUWWWMt^ 


ttllllti 


uuuuuuuu 


vvvvvvvv 


UWUWWMWW 


120 


121 


122 


123 


MKKXXKXK 


yyy«yHyy 


2Z2Z222S 


CCCCCCfC 


XXXXXXXK 


yyy«yyyy 


ZZZZ2ZZZ 


{CCCCfCC 


XXXXXXXX 


yyyyyyyy 


ZZZZZZZ2 


(CCCCCCC 


XXXXXXXX 


yyyyyyyy 


ZZZZ2ZZZ 


(CCCCCCC 


xxxxxxxx 


yyyyyyyy 


ZZZZZZZZ 


CCCCCCfC 


124 


125 


126 


127 


1 1 1 I 1 1 1 1 

1 1 1 1 till 


}}}}})>} 


HflltnftNKK 




1 1 1 1 1 1 1 1 
lilt 1 1 t 1 


}}}}}}}} 


f//ffffff///f//t 




i 1 t 1 till 
1 1 t 1 lilt 


}}}}})}} 






till 1 t 1 t 

1 t 1 1 1 1 t 1 


}}}}}}}} 


ftHftnttUHH 




lilt till 
lilt tilt 


}}}}}}}} 


MMfiMffMMM 
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Table-Driven 
Pictures 



Problem 5.1 



Solution 



Many graphic designs can be contained within a program as 
DATA statements whose values represent an encoded version of 
the picture or design. The program READs the DATA values and 
performs the decoding necessary to reconstruct the graphic design. 

Draw an expanded digit 1 on the screen. 

Store the sketch of the digit into a 2-dimensional table in 
which the first column represents the starting position in a line of 
output of a string of asterisks. The second column of the table 
specifies the length of the string. 



digit 1? coded by position & length 



10 'filen3ise;"a5pl" 

20 ' purpose? draw expanded 

30 ' author: Jdr 8/80 

40 ' 

50 DEFINT A-Z J DIM D(14?2) 

60 FOR 1=1 TO 14 

70 READ D(I»l)fD(I»2) 

80 NEXT I 

90 DATA 23y3j22»4»22»4»22»4?24f2»24r2y24?2»24f2 

100 DATA 23»6,22f8»22»8y22»8r22F8,23f6 

110 FOR 1=1 TO 14 

120 PRINT TAB(D(Ifl>)ySTRING$(D(I?2)»"«'') 

130 NEXT I 

140 END 
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J. '■'/■■ '■ 







- 1 

,'1 



. ' ,y 






1^ 



^Mf' 






^»v.1 






Discussion 



The graph of a single digit, as in this case, suggests the many 
such designs that could be produced this way. 



Suggestions 



• You can expand the technique that this example shows by 
incorporating a repetition factor, wherein there are three 
values associated with a PRINT statement: 

(1) number of PRINT statements of this format, 

(2) starting position for the string, 

(3) length of the string. 

• In order to fully generalize this technique, two more pieces 
of information could be added to the encoding information: 

( 1 ) indicator of whether this PRINT line is finished or is 
to be continued, 

(2) what character is to be used in the string. 

• Modify the program by implementing the ideas in the 
discussion points above. Cause the program to draw an 

^„i„. — ^A j;„;+ n 

• Modify the program so that the user can select the position 
where the digit is to be placed on the screen. 
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® Create graphic symbols and make up DATA statements that 
could be used by your program for display on the screen. 
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Problem 5.2 Draw an expanded digit 1 on the screen. 

Solution Encode the sketch of the digit into a series of binary numbers, 

with zeros and ones representing the absence or presence of a 
character. For example, each line of a sketch of the digit 1 

XXX 

XXXX 

xxxx 

XXXX 

XX 

XX 

XX 

XX 
XXXXXX 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 
XXXXXX 

can be encoded into binary by using a binary digit 1 to represent an 
X and a binary digit to represent a blank. The result would be the 
1 4 8-bit binary numbers 

01110000 
11110000 
11110000 
11110000 
00110000 
00110000 
00110000 
00110000 
01111110 

11111111 
11111111 
11111111 
11111111 

01111110 

Convert each of the binary numbers to its decimal equivalent. 
Remember that the binary number system uses each place to 
represent a power of two. The rightmost position corresponding to 
2 to the zero power or 1 , the next being 2 to the first power or 2, 
the next being 2 to the second power or 4, and so on. Thus the 
binary numbers above equal the decimal numbers 

112 

240 

240 

240 
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48 

48 

48 

48 
123 
255 
255 
255 
255 
123 

All the program needs to do then is decode the decimal numbers 
(convert them back to binary) and cause an asterisk to correspond 
to a 1 and a blank to correspond to a 0. 

1.0 'fiien3it)et"25p2" 



*-_v 


rut ru3c» ut cfw e/iroii'jcu uxaxi- x ? Luucu in LfiiiSr 


30 ' 


sulhor: Jdr 8/80 


40 ' 




50 DEFINT A-Z \ CLEAR 200 t DIM D(14)fX$(14) 


60 FOR 1=1 TO 14 


70 


READ D( I ) 


80 NEXT I 


90 DATA 112?240f240f240?48F48?48^48 


100 


DATA 126f255?255?255f255?126 


110 


FOR 1=1 TO 14 


120 


C=D( I ) 


130 


X$( I )=" " 


140 


FOR J=l TO 8 


150 


Q=INT(C/2) 


160 


R=C-2tQ 


170 


IF R=l 




THEH X$(I>="*''+X$(I) 




ELSE X$(I)=" ^n$il) 


180 


C=Q 


190 


NEXT J 


200 


NEXT I 


210 


FOR 1=1 TO 14 


220 


PRINT TAB(22)?X$(I> 


230 


NEXT I 


240 


END 
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Discussion 



Because of the internal representation of integers in the 
TRS-80, we are able to code each line of the figure in binary 
if its width is less than sixteen characters wide. Of course, 
wider pictures could use two or more numbers to represent 
each line of the picture. 



® Many other kinds of designs can be easily represented this 
way. For example, an alphabet or other set of graphic 
symbols could be coded and thus displayed in a manner 
similar to that used in this program. 



Suggestions 



® Alter the program so that the one becomes twice as fat when 
displayed, but don't change any of the encoded data values. 



Alter the program so that the user can specify the position 
of the number on the screen. Also, let the user specify the 
character used to sketch the figure. 

Design a corporate logo or other simple figure and place the 
encoded information in DATA statements and alter the 
program to output it. 
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Problem 5.3 
Solution 



Draw the silhouette of a witch. 

f3]pnsrfie!"g5F-3" 

purposed drsw s Bilhouelle of 
■ suihor! sps 9/79 



20 

30 

40 ' 

50 LF'RINT CHR$(31) 

60 CLEAR 500 ' 

70 READ Af ' 



Hitch 



convert printer to 16.5 cpi 
Bi3ke room for strings 
Set ne;;t piece of dsts 



80 IF A$ 

90 

lOO 

110 

120 



IF 



IF 



"END" THEN 9999 
checK for 3 new line 
A$="B" THEN LPRINT: LPRINT TAB( 21 )5 I 
check for the code for spaces ( S#* ) 
LEFTf-(A$»l)="S'' THEN 
LPRINT STRING$(MAL(HID$(A$?2))f" " V, 



GOTO 70 



GOTO 70 



130 LPRINT STRING$(yAL(A$)>"%")5 



150 DATA BfS44?27B?S43?4?B?S4375fB?S44f6jB?S45!'5jBi'S45i' 

6!'BfS46y6?BfS46f7?S7?2?B»S45y9?S5?3fB»S45rl6fB»S45yl5? 

BjS45?14»B?S42fl7?B?S40r20fB?S40»21fB»S43>16?B»S34,26f 

B?S31»28?B?S28j28fB?S26s'30>BfS24>32fB 

160 DATA S22j34fB?S20»36fB?S18?39»B,S16743fBrS15j46»BfS14» 

54fBi'S10y65fS3»3fB?S5?74fBf79jBfSlf77»BfS2f23?S3»45rBi'S8fl4? 

S6f44?BfS28?36?S3>4?B7S28f37fBfS28?36fB?S29?34»B»S30?32fBfS30? 

32»B?S32y30»BfS37»24fB»S29»2yS2»27fB»S25?34»B 

170 DATA S14?5.Slfl2»S2y24»B 

180 DATA S8,23»S2»24?S9»3fB?28rS3»26?S3»10»B»25fS4»40»BySl» 

2i,S4i'40i'BfS3fl5i.S4»39yBfS3i'14?S4?24fBjS4i'9jS4i'23i-Bi'S6j5fS3» 

23rByS6?3yS3»22jBfS6f2?S4fl6?B?S14»8 

190 DATA END 

9999 END 



Discussion 



This program is a variation on many of the ideas presented 
in the previous programs. 
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xmxmxxxRuxxmxnnxnxmmxx 
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mimnxmmixmmnmnm 
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•nwL xximmxxx xxxxxmxinxxmmmx 
mxxmxmxxxxxxxim mxxxmxxnxxximim m 
mmximmranmnmxx xmxxmxxn.nxmnxmx xmmm 
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xmxmmxm mmmxmixmmxxxmnxnmiim 
xxmxmmxx xxmnmx3mxxmnxx 
mmin xxxxxxmmaxxmxxxx 
xxm •ammmmmxnm 
m xmxxmxmnimm 
TX mxmnxxnm 
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As we near completion of this chapter and the discussion of 
hne printer graphics in general, we will introduce another method 
for encoding a picture description that will provide a generalized 
program upon which many other programs can be based to generate 
graphic designs of all kinds. 

The method used to code a picture or design is based on the 
fact that all pictures produced on a video screen or line printer are 
formed from single characters or straight lines composed of 
characters. If a grid is introduced over the picture like that shown 
below, then the picture or design can be reduced to a set of pairs of 
end points of a bunch of straight lines. 



l^^ OaVApOv^foA-V" 



o \ Z-1. ■-V S"fe 7 
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z 

s 
4 
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I I 
\Z 
i"5 



K 



As an example, the figure in the grid is composed of two 
straight lines. The first has end points (3,4) and (7,0). The second 
has end points (7,0) and (7,4). If we were to draw the straight lines 
connecting these end points and fill in the middle points, the figure 
shown in the drawing would be created. That is the basis of this 
method: Reduce the drawing to end points of a straight line. The 
plot the endpoints and all points on the line in between. 

The expanded digit 1 of programs G.5P1 and G.5P2 could be 
coded as: 
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(0,1) to (0,3) 
(1,0) to (1,3) 
(2,0) to (2,7) 
(3,0) to (3,7) 
(1,8) to (6,8) 
(0,9) to (7,9) 
(0,10) to (7,10) 
(0,ll)to(7,ll) 
(0,12) to (7,12) 
(1,13) to (6,13) 

A further compression of this encoding scheme would be to 
combine the two numbers of each end point into a single number 
without loss of information. Since the second number will be at 
most 2 digits, the end point (7,10) could be expressed as the single 
number 710 with the understanding that the rightmost two digits 
of such a number represent the vertical grid position or second 
component. The horizontal grid position or first component is the 
part of the number left when the rightmost two digits are removed. 
With such a compression scheme, the expanded digit 1 could be 
encoded as the series of numbers: 

1,3,100,103,200,207,300,307,108,608,9,709, 

10,710,11,711,12,712,113,613 
Notice that each pair of numbers are the end points of a line to be 
drawn. Also notice that the first two numbers (1 and 3) would be 
more recognizable as 001 and 003, but the leading zeros are 
redundant when we normally write numbers and were left off with 
no loss of information. 



Problem 5.4 



Draw an expanded digit 1 on the video screen using the 
straight line coding method. 



Solution 



5 'fjJeru 






;.'0 ' purposes drsw expanded disit Ir coded 3S straight lines 

30 ' 3ulhori Jdr 8/80 

40 ' 

50 CLS 

60 INPUT "input position of picture on screen" fXINCrYINC 

70 INPUT "input cherscters to be used in drawing" jCHAR$ 

80 CHAR$=LEFT$(CHAR$flO) 

90 GOSUB 1000 'drsw the picture 

100 IF INKEY$="" THEN 100 

110 STOP 
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1000 'subroutine io draw picture on screen 

1010 CLS 

1020 READ N 'nu»ber of straisiht lines to draw in picture 

1030 FOR L=l TO N 

1040 READ EfC»D 

1050 X1=INT(C/100) : Y1=C-100«X1 

1060 X2=INT(D/100) I Y2=D-100«X2 

1080 X1=X1+XINC : Y1=YUYINC 'relocate coordinstes 

1090 X2=X2IXINC I Y2=Y2+YINC 

1100 IF Xl>63 OR X2>63 OR Yl>15 OR Y2>15 

THEN PRINT "picture will not fit? cannot continue" I 
RETURN 
1110 IF X1=X2 THEN 1270 

1120 IF Y1=Y2 THEN 1310 

1130 M=( Y2-Y1 )/( X2-X1 ) 'calculate slope of line 

1140 B=Y1-M*X1 'calculate y-intercept 

1150 IF M>0 

THEN IF H<=1 iHtN 1220 tLSt 1170 
ELSE IF M>=-1 THEN 1220 ELSE 1160 

1160 T=Y1 ; Y1=Y2 : Y2=T 'slope between -1 and -infinity 

1170 FOR .J=Y1 TO Y2 'slope between 1 and infinity 

1180 I=INT((J--B)/H+0.5) 

1190 PRINTi?64*J+IfMID$( CHAR$»E+lyl )f 

1200 NEXT J 

1210 GOTO 1340 

1220 FOR I=X1 TO X2 'slope between -1 and 1 

1230 J=INT(M*I+B+0.5) 

1240 PRINT@64*.J+I»MID$( CHAR$»E+1»1 )5 

1250 NEXT I 

1260 GOTO 1340 

1270 FOR .J=Y1 TO Y2 'no slope? vertical line 

1280 PRINT(?64«.JfXl?MID$(CHAR$?E+l?l)? 

1290 NEXT J 

1300 GOTO 1340 

1310 FOR I=X1 TO X2 'zero slope? horizontal line 

1320 PRINT@64)icYlH?MID$(CHAR$?E+l?l )? 

1330 NEXT I 

1340 NEXT L 

1350 RETURN 

2000 DATA 10?0fl?3f0?100fl03?0?200?207?0?300?307?0?108?608 

2010 DATA 0?9?709?0?10f710?0fll?711?0?12f712?0?113?613 

9999 END 
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Discussion 



® The number zero has been inserted in front of each pair of 
numbers that represents the end points of a straight line. 
Its purpose is to specify which character is to be used when 
drawing the straight line. The effect here is minimal since 
the same character is used to draw the entire picture. But as 
will be shown in the next program, this number will not 
always be zero and will provide for flexibilty in the 
characters used to draw the picture. 



The picture can be placed anywhere on the screen because 
when the picture was coded we located it in the upper 
left-hand corner. The program reads in XINC and YINC 
values which are added to each point to relocate it on the 
screen. 

It is necessary that the two numbers representing the end 
points of a line are in numeric order; that is, the first is less 
than or equal to the second. For example, 3 then 307 is 
okay, but 307 then 3 is not acceptable. Of course, the 
program could be modified to place them in order. 



Problem 5.5 



Draw the logo for Bentley College with an optional user's 
initials to be embedded within it. 



Solution 



The previous program with changes only to the DATA 
statements, will be used to draw the logo. 



:1.0 'filensiiieJ"g5p5" 

20 ' purposet draw Bentley College logo with users initials 

30 ' author: Jdr 8/80 

40 ' 

50 CLS 

60 INPUT "input position of picture on screen" JXINCrYINC 

70 INPUT "input ch'srscters to be used in drawing" »CHAR$ 

80 CHAR$=LEFTt(CHAR$»10) 

90 GOSUB 1000 'drew the picture 

lOO IF INKEY$="'' THEN 100 

110 STOP 
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:1000 'subroutine to draw picture on screen 

1010 as 

1020 READ N 'nusber of straight lines to draw in picture 

1030 FOR L=l TO N 

1040 READ EfCrD 

1050 X1=INT(C/100) J Yl=C-100i!cXl 

1060 X2=INT(D/100) t Y2=D-100*X2 

1080 X1=X1+XINC : Y1=Y1+YINC 'relocate coordinates 

1090 X2=X2+XINC J Y2=Y2+YINC 

1100 IF Xl>63 OR X2>63 OR Yl>15 OR Y2>15 

THEN PRINT "picture will not fit? cannot continue" t 
RETURN 
1110 IF X1=X2 THEN 1270 
1120 IF Y1=Y2 THEN 1310 

1130 M=(Y2-Y1)/(X2-X1) 'calculate slope of line 
1140 B=Y1-M*X1 'calculate y-intercept 
1150 IF H>0 

THEN IF H<=1 THEN 1220 ELSE 1170 

ELSE IF H>=-1 THEN 1220 ELSE 1160 
1160 T=Y1 t Y1=Y2 t Y2=T 'slope between -1 and -infinity 
1170 FOR .J=Y1 TO Y2 'slope between 1 and infinity 
1180 I=INT((J-B)/M+0*5) 
1190 PRINT@64«.J+IfHID$( CHAR$»E+lfl )» 
1200 NEXT J 
1210 GOTO 1340 

1220 FOR I=X1 TO X2 'slope between -1 and 1 
1230 J=INT(M«I+Bf0.5) 
1240 PRINTe64*.J+I»MID»( CHAR$rE+lfl )> 
1250 NEXT I 
1260 GOTO 1340 

1270 FOR J=Y1 TO Y2 'no slope? vertical line 
1280 PRINTe64tJ+XlrMID$(CHAR$fE+lfl)r 
1290 NEXT J 
1300 GOTO 1340 

1310 FOR I=X1 TO X2 'zero slope» horizontal line 
1320 PRINTI?64*YH-IfHID$(CHAR*»E+lfl)f 
1330 NEXT I 
1340 NEXT L 
1350 RETURN 

2000 DATA 31y0f0f4700»0flfl4f0fl01fll4»0»460l!'4614j0f4701i-4714 
2010 DATA 0fl5f4715»0fl005fl705f0f806fl906»0»607f612»0f707f712 
2020 DATA 0f807f812»0f907»912r0f 1807»1812j0f 1907>1912 
2030 DATA 0f2007f2012f0f2107f2112f0r613»2113f0f 3002,3702 
2040 DATA 0»2803f3903f0,2604r2612,0f2704»2712»0, 2804, 2812 
2050 DATA 0,2904,2912, 0,3804,3812,0,3904,3912,0, 4004, 4012 
2060 DATA 0,4104,4112,0,2613,4113,1,302,302,2,402,402,3,502,502 
9999 END 
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Discussion 



The digit zero isn't in front of each pair of end points. The 
last 3 pairs have the digits 1, 2, and 3 in front. This means 
that four characters will be used in drawing the picture. The 
same character will be used for drawing most of the picture, 
but the last three lines will be drawn using different 
characters. 



The last three pairs of end points are strange. Both end 
points of the line are the same. This means that the line is 
really just a point, which is a special case of the more general 
line. The line drawing portion of the subroutine will handle 
this properly. 

Notice that the input to this program is the character to be 
used to draw the Bentley College logo followed by the user's 
initials. If the users initials are missing, then the last three 
lines are nlotted with blanks. 



Suggestions 



« Investigate the broad generality of this program by using it 
to draw a number of different pictures in various positions 
on the screen. The only changes to the program will be in 
■ the DATA statements. 



Problem .5.6 
Solution 



Draw the Bentley College logo on the hne printer. 



1.0 


'filen sifter 


■s5p6" 




20 


' purposeJ 


draw Bentley 


College 


30 


' 3ulhort 


Jdr 8/80 




4U 

50 CLEAR 8000 


{ DIH P$(64> 


; CLS 


51 


FOR 1=0 TO 


63 





lo§o on line printer 



P$( I)=STRIMGf(64?32> 
NEXT I 
INPUT "input -position of 



Picture on printer" »XINC?YINC 



53 

55 

60 

70 INPUT "input chsrscters to be used in drawing^ jCHARf 

80 CHAR$=LEFT$(CHAR$flO> 

90 GOSUB 1000 'drew the picture 

100 IF INKEY$="'» THEN 100 

110 STOP 
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:l.000 'subroutine to draw picture on screen 

1010 CLS 

1020 READ N 'nuaber of strsisht lines to draw in picture 

1030 FOR L=l TO N 

1040 READ E»C;D 

1050 X1=INT(C/100) J Y1=C-100»X1 

1060 X2=INT(D/100) I y2=D-100!i(X2 

1080 X1=X1+XINC I Y1=Y1+YINC 'relocate coordinates 

1090 X2=X2+XINC I Y2=Y2+YINC 

1100 IF Xl>63 OR X2>63 OR Yl>63 OR Y2>63 

THEN PRINT "picture will not fit? cannot continue" t 
RETURN 
1110 IF X1=X2 THEN 1270 
1120 IF Y1=Y2 THEN 1310 

1130 M=(Y2-Y1)/(X2-X1) 'calculate slope of line 
1140 B=Y1-H«X1 'calculate «-intercept 
1150 IF H>0 

THEN IF M<=1 THEN 1220 ELSE 1170 

ELSE IF M>=-1 THEN 1220 ELSE 1160 
1160 T=Y1 t Y1=Y2 : Y2=T 'slope between -1 and -infinity 
1170 FOR .J=Y1 TO Y2 'slope between 1 and infinity 
1180 I=INT((J-B)/M+0,5) 
1190 f1ID*(P$(.J)?Ifl7l)=MID$(CHAR$rE+lyl) 
1200 NEXT J 
1210 GOTO 1340 

1220 FOR I=X1 TO X2 'slope between -1 and 1 
1230 J=INT(HII+B+0.5> 
1240 MID$(P$(.J)?I+1?1)=HID$(CHAR$?E+1?1) 
1250 NEXT I 
1260 GOTO 1340 

1270 FOR .J=Y1 TO Y2 'no slope? vertical line 
1280 HIIi$(P$(.J)fXl+lfl)=Mni$(CHARI»E+lfl) 
1290 NEXT J 
1300 GOTO 1340 

1310 FOR I=X1 TO X2 'zero slope? horizontal line 
1320 MID$<P$(Yl)»I+lfl>=MID$<CHAR$?E+lfl) 
1330 NEXT I 
1340 NEXT L 
1350 FOR .J=0 TO 63 
1360 LPRINT P$(J) 
1370 NEXT J 
1380 RETURN 

2000 DATA 31i'0»0f4700?0?lfl4f0?101?il4»0?4601?4614i'0f4701»4714 
2010 DATA 0jl5»4715f0?1005?1705r0f806»1906»0j607»612y0»707r712 
2020 DATA 0^807, 812»0f907f912?0?1807»1812j0»1907»1912 
2030 DATA 0»2007»2012»0?2107?2112?0»613»2113»0f3002»3702 
2040 DATA 0?2803?3903?0?2604?2612y0f2704f2712?0f 2804»2812 
2050 DATA 0?2904»2912»0y3804?3812»0?3904?3912f0y4004f4012 
2060 DATA 0?4104f4112?0?2A13!'4113f I?302f302?2»402f402f3f502f502 
9999 END 
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Notice that this is program G5P5 with a few minor changes. 
The PRINT@s were changed to LET statements using the 
MID$ function on the left of the equal sign. A simple 
routine to PRINT the strings at the subroutine's end 
furnishes the output to the printer. 



64 



Chapter 5 Table-Driven Pictures 







Character Graphics 



PRINT® 



Character Graphics techniques rely on the use of a few 
advanced BASIC commands and the graphic character set. This^ 
chapter will explore the fuU range of instructions in the TRS-80's 
Level II BASIC that is needed for this type of graphics. 

The TRS-80 video screen is 64 columns wide and 16 rows deep. 
All of the 1024 positions are addressable. The positions in the 
screen's top row are numbered to 63, the second row 64 to 127, 
the third row 128 to 191, and so on until the last row, which has 
addresses 960 to 1023. 

The PRINT® statement positions the cursor at the screen 
location (0 to 1023) defined by the value of the expression 
immediately following the PRINT® instruction. When keying the 
PRINT® command, be careful to not depress the shift key. The 
shift-® symbol looks like a ® with no shift, but when the program 
is run a syntax error will result. 



Instruction 



Output 



1.0 PRINT (? O^-X" 

20 PRINT (? 95^"Z0T" 

30 PRINT e SIOj'ZOTZOT" 

40 PRINT @ 1023f"Z"J 



X 3t the top left of the screen 
ZOT centered on the second line 
ZOTZOT centered on the screen 
Z 3t the bottom risiht of the screen 
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If the PRINT® instruction ends with no punctuation, the 
cursor returns to the beginning of the next Hne, and this may 
produce undesirable results. If the address is between 960 and 1023, 
the string prints on the last line of the screen, then the screen scrolls 
one line. The effect of a PRINT@960 becomes the same as a 
PRINT@896, which is not what was intended. 

If the PRINT© instruction ends with a semicolon (;), the result 
is predictable. We recommend that you always end all PRINT® 
instructions with a semicolon. 



Problem 6.1 
Solution 



List a table in a variety of ways using the PRINT® statement. 



10 'filensiTret 

20 ' purposel 

30 ' author : 

40 ' 

50 DIM Pf( 15) 

60 FOR 1=1 TO 

70 READ P$( I ) 

80 NEXT I 

90 CLS I RANDOM 



SApI" 

output tsble 
Jdr 8/80 



1! 



in sundry ways using TAB function 



100 
110 
120 
140 
150 
1.60 
180 
190 
200 
220 
230 
240 
260 
270 
280 
300 
310 
320 
340 
350 
360 
370 



FOR 1=1 TO 15 

PRINT(?64S(I-l)-f25fP$(I) 
NEXT I f GOSUB 1000 'psuse and clear screen 
FOR 1=1 TO 15 

PRINTe64)r(I-l)+Ippf(I) 
NEXT I : GOSUB 1000 'pause I clear 
FOR 1=1 TO 15 

PRINT(?64S( I-l )+2^I?pf( I ) 
NEXT I J GOSUB 1000 'pause & clear 
FOR 1=1 TO 15 

PRINT@64S( I-l H3!KABS(8-I >?P$( I ) 
NEXT I J GOSUB 1000 'pause i clear 
FOR 1=1 TO 15 

PRINT@64«( I-l )+RND( 40>?PI( I ) 
NEXT I : GOSUB 1000 'pause & clear 
FOR 1=1 TO 15 

PRINT@64I( I-l )+40-LEN( P$( I ) ),?$( I ) 



NEXT 
STOP 
DATA 
DATA 
DATA 



I : GOSUB 1000 'pause & clear 



VuffepS"por?iP3noS"picKer3rf''pollocK% "Piranha" 
"pinfi5h"fVi3ty"? "porcupine fi5h%"pir3rucu%"porgy" 
"pilchard" f "plaice" ?"perch"f"plecto3n3th''?"panch3x" 
screen subroutine 

1010 FOR .J=l TO 200 5 NEXT J t CLS J RETURN 

9999 END 



1 AA/% / ... 
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STRINGS 



A Level 11 BASIC function which is useful in graphing is the 
STRINGS function. This function has two arguments: The first is 
the number of characters desired, up to 255, and the second is the 
character itself. 



Instruction 



Output 



10 PRINT STRINGfdOy"*") 

20 PRINT STRING*(5fCHR$(65)) 

30 PRINT STRINGS 8rCHR$(13)) 



40 PkIni #V60f STKIMG?(64?"Z" )f 

50 A=128t B$="9"J PRINT STRING$( A?B$ ) 



AAAAA 

Cursor aoves down 8 lines? 

positions itself st left of 

line* CHR$(13) is 3 

c3rri33e/cur5or return 

which is the charscter 

produced by the ENTER 

Key (/EN/>, 

ZZZ..,ZZZ (64 of theift) on 

the bottom of the screen 

Two rows of 9s 



Note: Since the computer builds the string in its memory first, 
before displaying it, your program may require additional string 
space to be reserved for it. Use the CLEAR instruction to allow 
for more string space. 



The Character Set 



A look at Appendix A reveals that the TRS-80 has a total of 
256 possible characters, and the effect of each can be displayed by 
using the instruction PRINT CHRS(N) where N is a number from 
to 255. A few of these values of the TRS-80's character code have 
no effect on the TRS-80, but most do, and they are certainly more 
numerous than would be necessary for just the alphabet, digits, and 
special characters that BASIC needs. The table below is a summary 
of the expanded table in Appendix A. 



Code 


Function 


0-7 


None 


8-31 


Carriage/Cursor Control 


32-47 


Special Characters 


48-57 


Digits 


58-64 


Special Characters 


65-90 


Alphabet (Upper Case) 


91-95 


Up, down, left, right arrows 


96 


Lower Case @ 


97-122 


Alphabet (Lower Case) 


123-127 


Lower Case of Codes 91-95 


128-191 


Graphics Characters 


192-255 


Tabs for to 63 Spaces 
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Tabulation Codes 



The last two groups of codes represent half the possible 
printable characters, and they deserve special mention. The last 64 
codes allow tabbing without the TAB function. 



Instruction 



Output 



CHR*(202)?"!|c" 



10 PRINT 

20 A$=CHR$( 192+1); 



PRINT A$5"*" 



t in the 10th position 
* in the Ith position 



Graphics Codes 



The codes from 128 to 191 are graphic characters that are made 
up of six small rectangles, or pixels, arranged in three rows and two 
columns for each character. Each character entirely fills one of the 
1024 print positions on the screen. Each pixel is either on (bright) 
or off (blank), depending on the code. For example, the graphic 
character 134 looks like this: 



where 
and 



is off, and 



IS on. 



The result of PRINT CHR$(134) would be the printing of the 
graphics character shown above. 



Graphic to Binary 
Conversion 



Each character code can be thought of as a visual representation 
of a six-bit binary number from 000000 to 1 1 1 1 1 1, corresponding to 
all 64 possible combinations of bits. The character's code value can 
be computed by translating each off pixel to a and each on pixel to 
a 1 . Then the positions of the Is can be masked into the six-bit 
binary number. The value of that number plus 128 is equal to the 
code value. 



8 



'b^ 



3^ lb 6 4- 2 I 
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Thus the graphics character whose code is 1 34 is 



c 







a 


i 


1 


-> 


4 








fe-MZ-a =154- 



and so the statement PRINT CHR$(134) produces that graphic 
symbol. The graphic character whose code is 1 9 1 is the one in which 
all pixels are on, resulting in a large rectangle of light. 



Problem 6.2 
Solution 



Disolav the granhlcs chnrartPTQ nn thp vjH 



f^n QnTP'n-it 



10 -'filensnisl'-'sSr?" 

20 •' purpose; dispisy Srsphics chsrecters 

30 ' author? jdr 7/80 

40 ' 

50 CLEAR 1000 

60 CLS 

70 DIM A$<64) 

80 FOR 1=128 TO 191 

90 IF I=INT(I/3)*3 THEN PRINT 

100 PRINT RIGHT$(3TR$(I),3)5" "?CHR$(I)5" 

HO NEXT I 

120 IF INKEY$="" THEN 120 

130 END 
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Suggestions 



Investigate the character obtained from CHR$(23). Printing 
it causes the TRS-80 video screen to go to double-wide 
character format. Printing CHR$(28) causes return to the 
normal mode for screen output. 

Modify the program to output the graphic characters in 
double-wide fomiat. 



Problem 6.3 



Create a dynamic visual display using the TRS-80 graphics 
characters. 



Solution 



10 'filen3me;"s6p3" 

20 ' purpose? rsndoiii paiiern of charscters 

30 ' Boitlechar Gaiaciico! 

40 ' author I Jdr 5/79 

50 ' 

60 CLS 

70 FOR 1=1 TO 1024 

80 PRINT(?RND( 1024 )- 1 y CHR$( RND( 64 )-H27 )? 

90 NEXT I 

100 END 



Chapter 6 Character Graphics 



73 






■'.-I'M 







.*— ..5, - y. 



.-1. ,1 JJ'.->'iV 



.•;i>j 


















1 -' .-•. *1 






74 



Chapter 6 Character Graphics 









"; iSl ^ 



■ - -S": 






■Ij- '- - , 



i~ , I 1^ 111, , 



-"i";.' S ,' b, ': :. 












_' . , -— 



J I J- 



' T'^ "i li U"i —I, 

i! W ; i.n , 

"U I'M •' '- -• 



I I" 



1:5. ,■'■■-■>■-- ■5-'-'^i-w . 

! \ ■■""..: *.;a^ "*-;-■.• ....■•^■•^■.rv''-- -;-4-^""ts£;^-?'«? ■i-' --.^ 



Discussion 

Suggestions 



• A very simple program can create an attractive visual display. 

® Modify the program so that the display uses double-wide 
graphics characters. 

• Modify the program so that it outputs all TRS-80 characters 
in the display. 
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Problem 6.4 



Write a program that will put a box around a message near 
the center of the screen. 



Solution 



3 'filen3ms!"g6p4" 

20 ' piirFosel plsce s iiiSSBeae in s bo;-; 

30 ' author J Jdr 8/80 

40 ' 

50 CLS t CLEAR 300 

60 PRINT "input ffiesssae with less than 60 chsrscters" 

70 PRirnu?,""; 

80 INPUT T$ 

85 T$=" "iT$-f" " 

90 CLS 

100 L=INT(64-LEN(T$))/2 i 

110 H=448 

120 PRINTgM-65fL?STRING$( LEN( T$ )l2f CHR$( 131 ) V, 

i "TA CsDTS^aTrsMJ./.T! I OTnTXir.-i-.' i r-i-i/ -r.-f- \ t n nim.-r/ ^ -/ / \ \- 

J-vJ-U f l\ iK » CI I 1 Uw/ ! L. 7 \^ 1 IMltU -l-\ L„L,I-i;\ I •!> / I i;. / U IllA. •i>\ 1 / O v* / ? 

140 FOR 1=1 TO 3 

150 K=MiL+64iic(I-2)-l 

160 PRINT@K?CHR$(170.>f \ PRINT|3KtLEN< T$)+lfCHR$(149 >? 

170 NEXT I 

180 PRINT@M+LfTf? 

190 IF INKEY$=" THEN 190 ELSE 50 
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Discussion 



Suggestions 



• The variable L points to the position of the screen where the 
message will be printed. 

• Look at the output from program G6P2 to see the characters 
corresponding to CHR$(131), CHR$(176), CHR$(170), and 
CHR$(149). They are used here as the top horizontal bar, 
bottom horizontal bar, left vertical bar, and right vertical bar 
respectively. 

® Notice how the values of the variables M and L are used to 
position the box and message. 

® Write the boxing portion of the program as a subroutine that 
can be called to box and center a message. 

® Generalize the program so that the user can specify the 
position of the boxed message. 



Problem 6.5 



Solution 



Write a program that will display a message as a moving banner 
similar to the flashing light messages appearing at night on the side 
of a blimp. 

10 'tilBnmsl"36p5" 

20 ' PurposeJ RiovinS banner of chsractsrs 

30 ' author i Jdr 8/SO 

40 ' 

45 CLS \ CLEAR 1000 t DEFINT A-Z 

46 INPUT" input isessB^e to be dispisaed" fB$ I Z=25 'speed fBctnr 

47 C$="" I FOR 1=1 TO 15 I C$=C1ilCi{R$( 128IRND(63) )+" " t NEXT I 

48 D$=" 
50 CLS 

60 B$=STRING$(19?32)IC$-!-" "+Bff" "fDSISTRINGK 19^32 ) 
65 PRINT@528yCHR$(149)f I PRINT@549?CHR$(170 )5 
70 1=1 I FOR J=l TO 1000 I PRINT@529?HID$( B$!l?20 )5 
75 1=1+1 : IF I>LEN( B$ )--20 THEN 1=1 



I FOR 1=1 TO 15 : ri$=" "+CHR$(128+RND(63))Hr$ ; NEXT I 



76 FOR K=l TO Z 
100 END 



NEXT K : NEXT J 
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Discussion 



Suggestions 



• 1 5 randomly selected graphics characters are affixed to the 

beginning and the end of the message to be displayed. 

• 1 9 blanks are affixed to the beginning and end of the string 
to be displayed. 

• A 20 character wide window is provided for the message to 
move through and be displayed. 

• The motion is obtained by using the MID$ function to select 
the 20 characters to be printed by the PRINT® statement. 

• A delay loop is needed to slow the TRS-80 down so that the 
message can be read. 

• Convert the program to a subroutine that can be called to 
create a moving banner out of a message. 
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» Moaiiy me program so tnat tne wiatn ot the banner is 
specified by the user of the program. 

» Modify the program so that the position of the banner can 
be specified by the user of the program. 

• Convert the program to produce a double-wide banner. 
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Problem 6.6 Produce a screen full of oversize random digits. 

Solution 10 'filensnier'g6p6" 

20 ' pLirposeJ produce screen full of iarse disils 

30 ' author t Jdr 6/79 

40 ' 

50 CLS 

60 CLEAR 100 

70 RANDOM 

80 DIM ri$(10) 

90 E$=CHR$( 26 )-fCHR$': S )ICHR$( S ) ■' iinefeed-bacKsFsce -becKsPoce 



100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 



FOR 1=1 TO 10 
A$="" 

FOR J=l TO 4 
READ X 

A$=A$+CHR$<X) 
IF .J=2 THEN A$=A$+Ef 
NEXT J 
m I )=A$ 
I 

151fl7i?141?142fl75fl2afi^O! 
179fl87?141fl407l79flSli 



NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 



143 



149jl76fl31?143?183?i79yl40fl43 
181»17A?141fl42?131?155?138fl28 
183?187fl41fl42?183?iS7fl23?143 



FOR K=0 TO 60 STEP 3 
FOR L=K TO 896fK STEP 
C=RND( 10 ) 
PRINT8L?D$(C)f 
MEXT L 
NEXT K 

IF INKEY$="" THEN 300 
END 
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Discussion 



This program couples the table-driven technique with 
character graphics. 



Notice the speed with which each oversize digit appears on 
the screen. This is accompUshed by concatenating a 
sequence of linefeed-backspace-backspace characters 
(CHR$(26)+CHR$(8)+CHR$(8)) in the middle of the four 
graphics characters that create each large digit. 

The enlarged digit is constructed from 4 graphics characters. 
For example, the first four numbers in the DATA 
statements are 151, 171, 141, and 142 are the numbers of 
the graphic characters used to construct the oversize digit 
zero. The first two, 151 and 171 are the top of the zero. 




The linefeed+backspace+backspace allows the next two 
numbers, 141 and 142, to be the bottom of the zero. 




Suggestions 



When put together by the program, D$(l) is defined by 
D$( 1 )=CHR$( 1 5 1 )+CHR$( 1 7 1 )+CHR$(26)+CHR$(8) 
+CHR$(8)+CHR$( 1 4 1 )+CHR$( 1 42) 
and becomes available for printing a large digit zero. 

Modify the DATA statements so that strange symbols 
instead of digits are displayed. 



Write a program that uses the ideas of the oversize digits 
to output the value of a numeric variable in oversize form 
at the center of the screen. 

Modify the program so that the oversize digits disappear one 
at a time from left to right, top to bottom. 
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Problem 6.7 



Write a program that will display a large-digit digital clock 
showing hour and minutes in the lower left-hand corner of the 

screen. 



Solution 



isfi screen 



3 'filen3mt"s6p7" 

20 ' purposei disiisl clock in lower 

30 ' author: Jdr S/80 

40 ' 

50 CLS : CLEAR 300 

80 DIM D$(10)yT(5) 

90 E$=CHR$( 26 )ICHR$( 3 )-fCHR$( 8 ) 

100 FOR 1=1 TO 10 

110 A$="" 

120 FOR .1=1 TO 4 

130 READ X 

140 A$=A$f CHR$( X ) 

150 IF J=2 THEN A$=A$tE$ 

160 NEXT J 

170 D$( I )=A$ 

180 NEXT I 

190 DATA 151?17l!l41?i42?175fl23?143fl43 

200 DATA 179fl877l41fl4Gfl79fl31fl40?143 

210 DATA 149fl76fl31fl43flS3?179fl40fl43 

220 DATA 131?176fl41fl42fl31?155jl38fl28 

230 DATA 183? 187? 141? 142? 183? 137? 128y 143 

240 'displsy lias 

250 X$=Miri$(TIHE$?10?5> I GOSUB 1000 

260 'continuous check to see if tims changes 

270 Y*=X$ t X$=MID$(TIHE$?10?5) 

280 IF X$<>Y$ 

THEN GOSUB 1000 
ELSE 270 
290 GOTO 250 

lOOO 'diSitol clocK subroutine 
1030 .J=0 

1040 FOR 1=1 TO 5 
1050 IF 1=3 THEN 1080 
1060 J=.J+1 

1070 T( J )='v'AL( HIDK X$? I ? 1 ) )M 
1080 NEXT I 
1090 J=l t K=0 : L=0 
1100 FOR 1=1 TO 5 
1110 IF 1=3 

THEN PRINT@?02?CHR$( 140 )? I 

PRINT@966fCHR$(131)? I L=LI2 

ELSE K=T(J) t PRINTi3396iLfD$(K)? I 



J=.Jil 



1120 NEXT I 
1130 RETURN 
9999 END 
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Discussion « The oversize digit routines from program G6P6 are used. 

® The function TIMES returns the date and time establislied 
by TRSDOS commands. The last eight characters are the 
time. The first five of these are 2-digit hour, a colon, and 
2-digit minute count. Thus MID$(TIME$,10,.5) extracts the 
required .5 characters from TIMES. 

Suggestions • Modify the program so that the user can specify the position 

of the clock on the screen. 

® Alter the program so that hours, minutes, and seconds are 
displayed. 



86 Chapter 6 Character Graphics 











Pixel Graphics 



Y 



In the previous chapter it was shown that each graphic 
character is composed of a 3 x 2 rectangle of pixels. The screen, 
wiiich contains 16 rows and 64 columns of characters, equivalently 
contains 48 rows and 128 columns of pixels. While the screen 
address of a character is a single number between and 1023, the 
screen address of a pixel is a pair of numbers specifying its 
two-dimensional position or coordinates on the screen. A 
programmer can address a single pixel with X and Y coordinates, 
using the column numbers to 127 for X and the row numbers 
0to47 forY. See figure 7.1. 



^0,o) 


D 


(iz.7,0^ 


K0.41) 




02.7,4^ 



Figure 7.1 Pixel Addressing 
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SET 



The SET command turns on the pixel whose screen address is 
in X,Y coordinate form in parentheses immediately following the 
word SET. 



Instruction 



Output 



10 SET(OfO) 

20 SET(2»4) 

30 SET(127y47) 

40 SET(0?47) 

50 SET(127jO) 

60 POKE 15360? 123+21 

70 SET(0?0)t SET(0»1)I 



Upper left pixel is turned on 
Second pixel on fourth row 
Last pixel on 47th row 
Bottoffi left pixel 
Top riaht pixel 
See text below 
See text below 



The last two statements above have the same effect, except 
tiiat tile POKE is mucii faster. Botii light up tiie Lop lefl pixels like 
this: 



RESET 



The RESET command turns off the pixel whose screen address 
is in X,Y coordinate form. 



10 PRINT m, CHR$( 191 > 
20 RESET(lfO) 



POINT 
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The POINT function returns a zero (false) if the pixel at the 
X,Y coordinates that make up its argument is off, and a -1 (true) if 
that pixel is on. Thus it is useful when testing if a particular spot is 
on or off. 

10 IF POINT(0?0) THEN RESET(OjO) 

20 IF POINT(X?Y) THEN SET( X+1»Y+1 )J RESET(XfY) 
Chapter 7 Pixel Graphics 



Problem 7.1 



Write a program to draw a line using pixel graphics. The user is 
to input the X,Y coordinates of the two end points. 



Solution 



10 'filensniet"d7pi" 

20 ' PurposeJ draw s sirsishi line Siven two end points 

30 ' suthor: Jdr S/80 

40 ' 

50 INPUT "input X?y coordinstss of end point i"? XIjYI 

60 INPUT "input XfY coordinates of end point 2"? X2?y2 

70 IF 100*Xi+Yl > 100*X2+y2 

THEN T=X1 : X1=X2 ; X2=T \ T=Y1 : Y1=Y2 : Y2=T 
80 GOSUB 1000 'draw the line 
90 IF INKEY$="" THEN 90 
100 STOP 

1000 'subroutine to draw picture on screen 
1010 CLS 
1100 IF Xl>127 OR X2.>127 OR Yi;>47 OR Y2>47 

THEN PRINT "line will not fit? cannot continue" i 
RETURN 
1110 IF X1=X2 THEN 1270 
1120 IF Y1=Y2 THEN 1310 

1130 H=(Y2-Y1)/(X2-X1) 'calculate slope of line 
1140 B=Yl-M)f(Xl 'calculate y-intercept 
1150 IF M>0 

THEN IF H<=i THEN 1220 ELSE 1170 

ELSE IF H>=-1 THEN 1220 ELSE 1160 
1160 T=Y1 ; Y1=Y2 : Y2=T 'slope between 
1170 FOR .J=Y1 TO Y2 'slope between 1 and 
1180 I=INT((J-B)/N+0,5) 
1190 SETd^J) 
1200 NEXT J 
1210 GOTO 1340 

1220 FOR I=X1 TO X2 'slope between -1 and 1 
1230 J=INT(Mi|tI+B+0,5) 
1240 SET(I?.J> 
1250 NEXT I 
1260 GOTO 1340 

1270 FOR .J=Y1 TO Y2 'no slope? vertical line 
1280 SET(XlyJ) 
1290 NEXT J 
1300 GOTO 1340 
1310 FOR I=X1 TO X2 
1320 SET(I?Y1) 
1330 NEXT I 
1340 RETURN 
9999 END 



1 and -infinit: 
infinity 



'zero slope? horizontal line 
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Discussion 



• The subroutine used to draw the Hne is basically the same as 
that in program G5P4 with all PRINT® statements replaced 
with appropriate SET commands. 

« The two points are ordered in line 70 so that the drawing of 
the Une can proceed from left to right on the screen. 



Problem 7.2 
Solution 



Draw a circle centered at a point X,Y with radius R. 



10 ' filename; "^7p2" 

20 ' purpose! draw s circle 

30 ' author: Jdr 8/80 

40 ' 

50 INPUT "input X?Y coordinates of circle' 

AO INPUT "input radius of circle" ?R 

70 CLS { E=12B/48 

80 FOR T=0 TO 6.3 STEP 1/(R+R) 



center" ?Xi?Yl 



90 


X=INT(E*RIC0S(T)+Xl+0.5> 


100 


Y=INT(R*SIN(T}+Yl+0.5) 


110 


SET(X?Y) 


120 


NEXT T 


130 


IF INKEY$="" THEN 130 


9999 


END 
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Discussion 



The polar coordinate form for the equation of a circle is 

used. 



Since pixels are not square, the variable E was used to help 
overcome inherent distortion. 



Suggestions 



® Modify the program so that there is a multiplier variable in 
front of R*SIN(T) as well as R*COS(T). By varying these 
values, eUipses can be drawn. 



• Write a program that draws circles at randomly chosen 
points on the screen. The radius of each circle can be 
selected at random also. 
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Problem 7.3 



Solution 



Draw an outline of the state of Massachusetts using pixel 
graphics. 

10 'fileriBffler'sZFS" 

20 ' Piirrose; dr3w piclurs of iisssschusetls 

30 ' author I Jdr 8/80 

40 ' 

50 XINC=35 t YINC=4 I A$=" Chelmsford" I X=50 I Y=i I 5=0 

70 GOSUB 1000 

152 GOSUB 6000 

155 RESTORE 

160 IF INKEY$="" THEN GOTO 160 ELSE GOTO 45 

1000 'subroutine to droW picture on screen 

1010 CLS 

1020 READ N 'rtutsber of straiaht lines to drsw in picture 

1030 FOR L=l TO N 

1010 READ CrD 

1050 X1=INT(C/100) ; Y1=C-100;^X1 

1060 X2=INT(D/100) I Y2=B--100$X2 

1080 X1=X1+XINC ; Yl=YlfYIiC ' relocate coordinstes 

1090 X2=X2+XINC l Y2=Y2fYINC 

1100 IF Xl>127 OR X2>127 OR Yl>47 OR Y2>47 

THEN PRINT '^picture will not fit? csnr.ct continue" I 
RETURN 
1110 IF X1=X2 THEN 1270 
1120 IF Y1=Y2 THEN 1310 

1130 M=(Y2-Y1)/(X2~X1) 'cslculste slope of line 
1140 B=Y1-MIX1 'calculate y-intercept 
1150 IF H>0 

THEN IF H<=1 THEN 1220 ELSE 1170 

ELSE IF H>=-1 THEN 1220 ELSE 1160 
1160 T=Y1 : Y1=Y2 I Y2=T 'slope between 



and -infinity 



1170 FOR .J=Y1 TO Y2 'slope between 1 and infinity 

1180 I=INT((J-B.VHt0,5) 

1190 SETdfJ) ' 

1200 NEXT J 

1210 GOTO 1340 

1220 FOR I=X1 TO X2 'sicpe between -1 and 1 

1230 J=INT(f1*HB+0.5) 

1240 SET(I?J> 

1250 NEXT I 

1260 GOTO 1340 

1270 FOR .J=Y1 TO Y2 'no slope? vertical line 



AZOV OCnALf-Ji 



1290 NEXT J 

1300 GOTO 1340 

1310 FOR I=X1 TO X2 'zero slope? horizontal line 

1320 SET(I?Y1) 

1330 NEXT I 
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1340 IF S=l RETURN 

1345 NEXT L 

1350 RESTORE t S=l 

1360 RETURN 

4000 DATA AlfUOa 

4010 DATA 4701f480if4900?5600?5701r5702?6203j6203?5802fd302 

4020 DATA 59O4f61O4?56O5?5905?5506f5507f5603f600S-;6009?dll0 

4030 DATA 6210y6412y651376614?67i4?7514?7il0y7110?7209?7409 

4040 DATA 7310f7510?7511f 7511?76ilf 79i4?741577815?7'816»7316 

4050 DATA 6616y7416?6315j 6517? 6417? 6417 j6015?63i5?5916?5916 

4060 DATA 5616y5816?5316f 5518? 5116?5216?54l8?5413?4915y5015 

4070 DATA 4714f4814F4613?4713?632G?6920?64i9?6619i 

4080 DATA 7421? 7321? 7720? 7320 

6000 'draw line froE town nsirie to Fosilion m msp 

6010 Xl=8 : Yl=43 i X2=X+XINC I Y2=YfYIHC 

6020 PRINT@960?A$? t SET(X2?Y2) : GOSUB 1130 

6024 FOR .J=l TO 100 

6025 FOR 1=1 TO 100 : NEXT I i RESET 

6026 FOR 1=1 TO 100 t NEXT I 

6027 NEXT J 
6030 RETURN 
9999 END 



s/y-E'-. 
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Discussion 



Suggestions 



® Again, the basic line drawing subroutine that has been used 
in previous programs appears at lines 1000 and beyond with 
SET commands doing the drawing on the screen. 

® The DATA statements provide end points of the Hnes that 
are drawn to form the picture. 

• As an extra flourish, the town of Chelmsford is singled out 
for special identification. 

® Finally with panache, the position of the town blinks on and 
off. 

9 Modify the program to give the user a menu of cities to 
choose from, with the program then drawing a line from the 
town's name to its position in the state. 

® Modify the program so that the town name is printed 

above the town's position, so that a vertical line can connect 
the town name and the pixel locating the town's position. 



Problem 7.4 Write a program that will produce a smile face at a position on 

the screen specified by the user. 

Solution 10 'filen3iiieJ"s7F4" 

20 ' purposes ssiie face w/ rtiDbiiiiy 

30 ' author t Jdr 8/80 

40 ' 

45 CLS 

50 INPUT" input position of picture"?XINC?YINC 

60 GOSUB 1000 

155 RESTORE 

160 IF INKEY$="" THEN GOTO 160 ELSE GOTO 45 

1000 'subroutine to draw picture on screen 

1010 CLS 

1020 READ H 'nusber of straight lines to draw m Picture 

1030 FOR L=l TO N 

1040 READ CfD 

1050 X1=INT(C/100) : Y1=C-100«X1 

1060 X2=INT(Ii/lO0) : Y2=D-100SX2 

1080 X1=X1+XINC I Yl=Yl+yiNC 'relocate coordinates 

1090 X2=X2+XINC : Y2=Y2IYIHC 

1 < A/\ TC VI -.IT? nn <-">■■. 1 n -7 nr, vi-.. .< -r nr, \"^'- ' -r 
J.4VV Ai /Nj..-- J.A-../ oi\ Aiiyxi/ Ul\ iiytf UiA i iLyi-/ 

THEN PRINT "picture will not fit? cannot continue'' .* 
RETURN 
1110 IF X1=X2 THEN 1270 
1120 IF Y1=Y2 THEN 1310 
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1130 M=(Y2-Yl)/(X2-Xi ) 'cslculole sIgfs of line 
1140 B=Y1-M*X1 'c3lcuisie y-inlercepi 
1150 IF H>0 

THEN IF H<;=1 THF.N 1220 ELSE 1170 

ELSE IF H>=-i THEN 1220 ELSE 1160 
1160 T=Y1 ; Y1=Y2 i Y2-T 'slope between ~1 end -infiniia 
1170 FOR J=Y1 TO Y2 'slope between 1 3nd infinity 
1180 I=INT((J-B)/H+0.5) 
1190 SETdfJ) 
1200 NEXT J 
1210 GOTO 1340 

1220 FOR I=X1 TO X2 'slope between -1 and 1 
1230 .J=INT(HH+Bt0.5) 
1240 SET(I?.J) 
1250 NEXT I 
1260 GOTO 1340 

1270 FOR .J=Y1 TO Y2 'no slope? verticsl line 
1280 SET(X1?J) 
1290 NEXT J 
1300 GOTO 1340 

1310 FOR I=X1 TO X2 'zero slope? horizontal line 
1320 SET(IfYl) 
1330 NEXT I 
1340 NEXT L 
1350 RETURN 

4000 DATA 25yl200fl202?1300?1302?3000?3002?3100fil02j7i>9 
4010 DATA 107 ? 109 ? 4207? 4209 ?4307?4309j209)r 210? 309? 310? 4009? 4010 
4020 DATA 4109?4110?410?411?510?511?3810?3311?5910?39il ?6il?61i 
4030 DATA 711?711?3611y3611?3711?3711?612?1112?3212?3712 
4040 DATA 313? 1513?2813?3513?1214?3114 
9999 END 
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Discussion 



9 Notice the similarity between this and the previous program. 

The generality of this approach for producing graphics is 
quite astonishing. 



Suggestions 



Modify the program so that a circle delineating the head is 
drawn around the eyes and smile. 
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Problem 7.5 Write a program that turns the computer into a stand up 

comedian who does impressions. 

SoUition 10 'filen3i!.e:"27p5" 

20 ' purposej stand up comediBn doinS impersonations 
30 ' author t Jdr 8/80 

40 ' 

41 DIM W$a5)fC$(15) 

42 FOR 1=1 TO 15 

43 READ W$(I)?C$(I) 

44 NEXT I 

45 RANDOM 

46 CLS 

50 XINC=0 : YINC=12 

51 PRINT§26f"And nowy heeeeeres John Binary ..." 

52 FOR 1=1 TO 375 t NEXT I 

60 GOSUB 1000 'draw smile face 

61 FOR Q=l TO 15 I PRINT025?"for my "5 

62 IF Q=i THEN PRINT@32» "first"? 

ELSE IF Q=15 THEN PRIMTi?32f "last" ? 

ELSE PRINTe36?" "5 t PRINTe32y"next" 5 

63 PRINTePOS(0)+lf" impression ..."5 

64 PRINTe94?yMQ)? 

65 FOR 1 = 1 TO 375 i KEXT I 

76 A$=C$( Q ) 

77 A$=A$+CHR$( 191 ) 
80 GOSUB 7000 

170 PRINT894fSTRING$(33f32) I FOR 1=1 TO 350 I NEXT I J NEXT Q 

175 PRINT@25ySTRING$(33?32)? I FOR 1=1 TO 500 ; NEXT I 

180 PRINTe25j"th3nK you ..." 

185 FOR 1=1 TO 1525+RND(1000) : NEXT I 

190 PRINT@271f" "5 I PRINT@262f" "f t FOR 1=1 TO 50 I NEXT I 

200 PRINT@271.CHR$(191)5 { PRINTe262fCHR$(191 )5 

210 IF INKEY$="" THEN 185 

220 STOP 

1000 'subroutine to draw picture on screen 

1010 CLS 

1020 READ N 'nuBber of strsiaht lines to draw in picture 

1030 FOR L=l TO N 

1040 READ CtH 

1050 X1=INT<C/100) : Yl=C-100)i(Xl 

1060 X2=INT(Ii/100) t Y2=D-100:i(X2 

1080 X1=X1+XINC I Y1=Y1+YINC 'relocate coordinates 

1090 X2=X2+XINC I Y2=Y2+YINC 

1100 IF Xl>127 OR X2>127 OR Yl>47 OR Y2>47 

THEN PRINT "picture will not fit? cannot continue" I 
RETURN 
1110 IF X1=X2 THEN 1270 
1120 IF Y1=Y2 THEN 1310 
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1130 M=(Y2-Y1)/(X2-X1) 'csiculBle siope of line 

1140 B=Yl-MiitXl 'C3icul3ie y-inlercspt 

1150 IF H>0 

THEN IF M<=1 THEN 1220 ELSE 1170 

ELSE IF H>=-1 THEN 1220 ELSE 1160 

1160 T=Y1 ; Y1=Y2 J Y2=T 'slope between -1 snd -infinity 

1170 FOR J=Y1 TO Y2 'slope between 1 snd infinity 
1180 I=INT((.J-B)/H+0,5) 
1190 SET(IfJ) 

1200 NEXT J 

1210 GOTO 1340 

1220 FOR I=X1 TO X2 'slope between -1 snd 1 
1230 J=INT(HII-fBI0.5) 
1240 SET(If.J) 

1250 NEXT I 

1260 GOTO 1340 

1270 FOR .J=Y1 TO Y2 'no slope? vertical line 
1280 SET(XlfJ) 

1290 NEXT J 

1300 GOTO 1340 

1310 FOR I=X1 TO X2 'zero slope* horizontsi line 
1320 SET(I?Y1) 

1330 NEXT I 

1340 NEXT L 

1350 RETURN 

3990 DATA "Arnold Psiiier" i- "444" ? "Little Orphan Annie" y"ooo'= 

3991 DATA "Orson Welles" ?"###" ^"Jiiiiiim The Greek" i"/:%X" 

3992 DATA "Rone Barrett"? "'!'" ?"3"-ye3r-old chiid%"? ?" 

3993 DATA "s iristh teacher" j"l-fl" y"3 math student"?"= 3" 

3994 DATA "Bozo the Clown" ?"+x-t-" f"Glori3 Steineni%"= =" 

3995 DATA "NBC censor" ?"* ^"^"Dean Hsrtin" ? "J&B" 

3996 DATA "Irms Ls Douce"y"$ $"y"Hu3h Hefner" ?"T&A" 

3997 DATA "librarian in Boston's combat zone"?"»oO" 
4000 DATA 25fl200fl202fl300?1302r3000j3002f3100?310277?9 

4010 DATA 107?109f4207f4209?4307?4309j209?210»309f310y4009?4010 

4020 DATA 4109j4110f410?411f510f 5il?3810?3811?3910y3911 ?6iiy611 

4030 DATA 711?711f3611?3611f3711f3711f612?1112?32i2?37l2 

4040 DATA 813?1513?2813f3513f 1214?3114 

70OO 'iffipersonstion subroutine 

7010 FOR 1=1 TO 4 t X$=Hni$( A$f I ?1 ) 

7020 PRINT@262fX$? t PRINT@271fX$» 

7030 FOR J=l TO 150 

7040 NEXT J 

7045 IF 1=3 THEN FOR J=l TO 150 t NEXT J 

7050 NEXT I 

7060 RETURN 

9999 END 
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Discussion 



Suggestions 



® The program performs 1 5 impressions. 

• Notice the simple motion that the eyes give the smile face. 

• This program is a crude beginning to what might be called 
cartooning. 

® The stand up comic's name is John Binary. Of course, his 
idol is John Byner. 

• Turn the smile-faced impressionist of this program into a 
comedian that delivers short, snappy one-hners. His name 
could be Grinny Youngman. "Take my computer — please!" 
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Motion Graphics 



The previous chapters have shown you programs ranging 
widely in sophistication from a simple picture in the program 
Woodstock to a computerized map drawn using pixel graphics. 
There was httle motion in the graphics examples because it is a 
difficult proposition to plan on paper and realize in code the 
effect of movement. Many factors contribute to this difficulty. 
The speed of the computer is one such factor because there is 
usually a lot of calculation when motion is involved. The 
translation of where each point "moves to" requires a calculation. 
The resolution of the video screen is another factor governing the 
way a picture looks. If the picture is rotated, then distortion can 
occur. Much planning must take place prior to writing a program. 
A third factor is that the BASIC programming language was not 
designed to facilitate the many primitive graphics operations that 
would be useful to have. Another, and probably the most 
important factor impeding a computer's ability to produce motion, 
is a lack of imagination and willingness to experiment on the part of 
the computer's programmer. 

We will show you some programs that will illustrate the 
beginnings of how motion can be produced and the visual diversity 
and delight it can provide. 
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Bouncing Dots 



In many games, as well as in serious graphing applications, you 
will want to have a dot move in a straight direction until it meets an 
obstacle and keeps moving in a new direction. Consider the possible 
bounces: 

Vertical Wall Collision 



1 





3 - 




A- 




Each moving dot changes its X direction by an amount DX, 
and its Y direction by an amount DY. In all the conditions above, 
the Y direction increment DY never changes sign. In conditions 1 
and 2, DX starts as positive, but changes sign to negative on the 
bounce. 

If you investigate the four possible bounces from a horizontal 
wall, you will find that, as expected, the only change is the reversal 
of the sign of DY. 

This understanding is all that is necessary to graph a moving and 
bouncing dot. The dot is a pixel drawn with a SET command. The 
coordinates of the SET are X and Y. The movement is provided by 
a SET at a new position X+DX, Y+DY followed by a RESET of the 
old dot at X,Y. 

1.00 SET(XfY) 

1.10 X=XtDXJ Y=YIDY 

120 SET(X?Y) 

130 RESET(X-riXfY-DY) 

140 GOTO 110 
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To bounce the dot off the wall, you must "feel" ahead to see if 
any part of the surrounding territory is occupied. It is not enough 
to just sense the status of the next point. For example, suppose the 
dot is moving up and to the right, and it encounters a horizontal wall. 



Next place to be set 
is already occupied 



If the "next place" is the only point that is considered on a 
bounce, the computer couldn't tell if the wall were horizontal or 
vertical. 



Next place to be set 
is already occupied 



The only way to judge which direction increment, the DX or the 
DY, needs to change sign is to sense in all four directions. 



Examples: 



There is something above 
the dot, so reverse the sign 
ofDY 
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There is something to the right of 
the dot, so reverse the sign of DX 



Problem 8. 1 
Solution 



Write a program that bounces a dot off any wall set up in 
either a vertical or horizontal position. 

10 'filens!i.el"s8Fr' 

20 ' purpose J bouncing dot prosrsii. 

30 ' author i Jps 2/80 

40 INPUT -nXf IiY BETWEEN 1 AND 2 INCLiJSIvE" fDXyDY 

50 INPUT "STARTING COORDINATES" ?X?Yi CLS 

60 FOR 1=0 TO 127 ■' this loop drsws horizon Isi boundBries 

70 SET(IfO): SETCI.l): SET(I?4G)i SET(I^47) 

80 NEXT I 

90 FOR 1=0 TO 47 ' drew veriicsi boundsries 

100 SET(OfI)J SET(lfl): SET( 126.1)1 SET(127?I) 

110 NEXT I 

120 SET(X?Y) ' put 3 point et locstion X?Y 

130 ' change direction of dot if necesssry 

140 IF POINT(X+DX?Y) OR POINT( X~IiX?Y) DX^-DX 

150 IF POINT(XyY+DY) OR POINT( Xy Y-DY) DY=~DY 

160 X=XHiXJ Y=Y+IiY: GOTO 120 

9999 END 



Discussion 



The program allows DX and DY to be defined for any value 
between 1 and 2. 






® The walls are built on the four sides of the screen. 



iviodify the program so that the icctaiigular area in which 
the dot bounces can be specified by the user. 

Turn the bouncing dot into a blob and write a program to 
bounce the blob off horizontal and vertical walls. 
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Problem 8.2 Write a program to produce a visual display by bouncing a dot 

off randomly placed lines on the video screen. 

Solution 10 'filenBmt"SBr-2" 

20 ' Furposel creolins CDdiHuier srt 
30 ' author* 5?^ 2/79 
40 ' next line initislizes vsriobiesf 
50 RANDOHi CLEAR 1000? DEFSTR A: DEFINI 

60 close; print " press:" 



■ p_7 * C- 1 > p-.... 1 



♦ ULc 



TO LOOK Ai 
TO CREATE 
?0 



DTrTj IpCCi 
1 J. 1/ I UPvL-a 



-;tw 



70 PRINT " L- 

80 PRINT " H- 

90 A=INKEYf: IF A="" THEN 

100 IF A="L" THEN 790 

110 ' user wsnls to create new 

120 CLS 

130 ' the next loop draws 6 rsndofi lines on 



;TURES" 



STi 



ne screen 



140 ' 

150 FOR T=l TO 3 



K -5 veri-icai/ o norizoni/c 



; 



160 
170 
180 
190 
200 
210 



y o" r 1 s D J. e s 
Bi=B+RND( so- 



set UP randoiii 
B0=RND(25)*2I4: Bi=B+RND( 50-,5*B )*2i 32=RND( 21) 
C=RND(ll)l2i4: C1=C+RND(23~. 5*0^2: C2-RNIi( 60)? 

draw the lines u.sins the variable 
FOR N=BO TO Bi: SET(NfB2): NEXT N 
FOR H=C TO CK SET(C2?N): NEXT N 
220 NEXT T 
230 ' the next two lines 



^2+4 
2t4 



initialise the direction of the dot 



HO S=INT(RND(100)/50)i 



[r b=iu' 



HEN 



arounQ cne 

VT M 
A I i\ 



K 



& 



260 ' the next two lines draw 3 bouridary 

270 FOR N=l TO 125i SET(N?3): SET(Nf47); NE 

280 FOR N=4 TO 46: SETdjN); SET(125yN)i NEXi 

290 ' ne;-;t line ^ives the point 3 startms 

300 ' maKes sure it isn't occupied 

310 X=RNIi(61)f2+2i Y=RND( 20 );?2-f5: IF PGINT(XyY) THEN 310 

320 ' print the coiiimand stateirient on the screen 

330 PRINTS 10f"C0MHAND(PyS? yR?E): " f 

340 ' 

350 ' 

360 ' the rest is the main portion of the proarani 

370 ' next 4 lines chsnss the direction if necessery 

380 IF POINT(X+ifY) THEN S=-l 

390 IF P0INT(X-1?Y) THEN S=i 

400 IF POINT(XfY+i) THEN T=-l 

410 IF POINT(XyY-l) THEN T=l 

420 ' previous point is blanked if F=l 

430 IF P=l THEN RESET(X!'Y) 



icreen 
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440 ' next 4 lines sclusiiy ieli the dot where to aove 

450 IF S=l THEN X=Xfl 

460 IF S=-l THEN X=X-1 

470 IF T=l THEN Y=Y+1 

480 IF T=-l THEN Y=Y-1 

490 ' next line erases point if it wss white and E=l 

5O0 IF POINT(X?Y) AND E=l THEN RESET(X?Y) ELSE SET<X?Y) 

510 ' the next line checKs to see if 3 Key was pressed- 

520 ' if not? then ao beck to the niein pro^rsE 

530 A=INKEYf: IF A="'' THEN 380 

540 ' print the letter that wss pressed in the corner 

550 PRINT© 30fAy 

560 ' execute the conimsnd 

570 ' reverse the dot? 

580 IF A="R" THEN T=-T: S=-S: GOTO 330 

590 ' erese the dots trail? 

600 IF A="P" THEN P=-Pt GOTO 330 

610 ' erese the dot when it runs over another? 

620 IF A="E" THEN E=-E: GOTO 330 

630 ' stop the motion of the dot? 

640 IF AO" " THEN 670 

650 A=INKEY$J IF A='"' THEN 650 ELSE 330 

660 ' store. the picture on disk? 

670 IF A<>"S" THEN 330 

680 ' store the file usins randotii access 

690 OPEN "R-'flF-SCRNGRPH/DAT"' open the file for access 

700 FIELD 1? 255 AS B$: M=LOF( i )J 1 = 15359' initialize 

710 A=""' nullify A$ 

720 ' the next 5 lines copy the screen to disK 

730 1=1+1 

740 IF LEN(A)<255 THEN 770 

750 ri=M+lJ LSET B$=AI PUT 1?H 

760 IF H/4=INT(H/4) THEN 60 ELSE 710 

770 A=A+CHR*(PEEK(I)): POKE I? 46 J GOTO 730 

780 ' this portion copies the ert on disK to the screen 

790 OPEN "RMf-SCRNGRPH/BAT": FIELD 1> 255 AS B$ 

800 IF L0F(1)<>0 GOTO 830 

810 PRINT "SORRY? BUT THERE IS NO ART ON FILE..* «CK»" J 

820 A=INKEY$; IF A="" THEN 820 ELSE 60 

830 CIS 

840 FOR C=l TO LOFd ) STEP 4 

850 FOR 11=0 TO 3: GET 1?C+D; PRINT B$: NEXT D 

860 PRINT mJOf " «CR»"? 

870 A=INKEY$t IF A="" THEN 370 ELSE PRINT 

880 NEXT C 

9999 END 
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Discussion 



Sueeestions 



• The program allows the user to participate in the way the 
graphic design proceeds. 

Typing an "R" reverses the dot's direction. 

Typing a "P" causes the dot's trail to be erased. 

Typing an "E" erases a dot that is run over by the moving 

dot. 
Typing a " " freezes the dot's motion. 

® The program allows the user to save on disk the screen 
contents wiien a particularly interesting pattern is perceived. 
Typing an "S" stores the picture on a direct access disk 
file. 

• All user input is through INKEY$. Depressing the ENTER 
key accidentally after typing any of the above keys can 
cause unpredictable and weird things to happen to the screen 
pictures. 

• When a screen picture is saved, the status of the picture is 
lost and the picture can not be continued. Modify the 
program so that the dot picks up where it left off when 
interrupted by the typing of an "S". 
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Problem 8.3 



Solution 



Write a program that causes the screen of the TRS-80 to 
become a movie marquee hawking the latest flick. 



' filename; "28p3" 

' prosrsm; msrsuee diBpls: 

' author: Jdr 8/80 



CLEAR 300 I BEFINT A- 



10 
20 
30 

40 ' 

41 CLS I 

42 Z=600 

43 READ E$»F$7G$ 

44 READ A$?B$fC$?R$ 

45 N=20 J «=5 
46 
47 
50 



n=20f m=3 or n=20? iri=5 or itiod i 
n=20f rrFdf modify step in line 



inss 60 & 120 step 2^ 
60 to be 2'iip-l 



FOR Q=l TO 100 

52 P=Q-INT(Q/H)*H-}-l 

53 IF P02 THEN PRINTeZ-202fF$f I PRINT@Z-i33?b$S 

ELSE PRINT@Z-202fR$fR$+R$5 ; PRINT@Z-138?R$tR$ 
60 FOR I=P TO 63 STEP P 



61 
62 
63 
64 

100 

102 



.Jl=64-I+INT(I/64)*64 t J3=127-J1 : J2=63-.J1 I .J4=6 
SET (JlfO) ; SET (J3.0) t SET (J2y47) : SET (.j4^47 
SET (JIjI) : SET (J3»l) t SET (J2f46) ; SET (.J4?46 
IF I-INT(I/5)*5<>0 THEN PRINT@Z-391.E$J 

ELSE PRINT0Z-391fR$+R$y 
IF .Jl<=59 THEN RESET (.JH-4,0) : RESET (.JU4,1) 

ELSE RESET (Jl-60y0) J RESET (Jl-60yl) 

RESET (J2-4»46) 

RESET (.J2+60?46) 
RESET (J3-4fl) 
RESET (J3+60?i) 
: RESET (J4H»46) 
(.J4-60f47) : RESET (.J4-60?46 



I 

4+Jl 

) 

) 



IF J2>=4 THEN RESET (.J2-4»47) I 
ELSE RESET ( J2-!-60?47) 
105 IF .J3>=68 THEN RESET <.J3-4fO) : 
ELSE RESET (.J3f60f0) 
107 IF .J4<=123 THEN RESET (.J4-f4?47) 
ELSE RESET 
I 



110 
115 

120 
121 
122 
123 

130 
993 
994 
995 
996 
997 
998 
999 



NEXT 

IF P=l THEN PRINTeZfAf 5 
ELSE PRINT§Z?R$5 
FOR .J=P TO 47 STEP P 
SET (Of J) : SET (IfJ) 



PRINTI?Z+64fB$J 
PRINT@Z+64fR$; 



PRINT@ZI1 
PRINTgZil 



2S?C$5 
28fR$; 



SET (127?.J) ; SET (126y.J) 



FOR K= 
IF .J>= 



1 TO N : NEXT K 
4 THEN RESET (0..J-4) I 
RESET (127? J-4) 



RESET (1fJ-4) i 
: RESET (126,J- 



■4) 



NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
NEXT 
END 



" now plsyinS" 

"The Hed^ehos 
" Ate C h e 1 n. s f 



T h 3 
r d" 



t" 



starring" f"Dou^ & Hinsdale"?" 



Piranha" 
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Discussion 



® The marquee lights cycle from the center top toward the 
edges, then down the sides where they turn to converge at 
the center bottom of the screen. 



• Some parameters have been built in to control speed, 
pattern, and cycle of the marquee lights. 

• The movie's title and cast come and go giving added 
movement to the marquee. 



Suggestions 



Run the program varying the parameters to get a feel for the 
type of visual displays that can be produced by the marquee. 



• Experiment with the controlling loop structures to change 
the display. Some simple changes produce remarkable and 
unpredictable results. 

• Change the size of the marquee. 
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Problem 8.4 



Write a program that will cause a stick figure person to jump up 
and down on the video screen. 



Solution 



.1.0 'filen3BeJ"a8p4" 

20 ' puPFOset bouncins Benlley 

30 ' BUlhor: Jdr 8/80 

40 ' 

50 CLEAR 1000 I CLS t RAMDOii 

60 GOSUB 1000 ; GOSUB 2000 I GOSUB 3000 

65 PRINT(?259?A$J I PRINT@585fC$5 

66 PRINT@408?"Hellof I'm bouncind Beriilea."; 

67 FOR 1 = 1 TO 700 J NEXT I 

68 PRINT(?408y " I feel 3 bouncing fit coaing on!"? 

69 FOR 1 = 1 TO 500 : NEXT I \ CLS 

70 FOR X=3 TO 47 STEP 2 
72 Y=X+256 : Z=100 

80 PRINT@X^A$? : PRINT@X+319?B$y 

85 FOR 1=1 TO Z : NEXT I : CLS 

90 PRINTgYi-Ai? ; PRINT@Y+326fCi|J 

93 FOR 1 = 1 TO Z : NEXT I t IF X047 THEN CLS 

95 NEXT X 

96 PRINT@408f"Geez? I'm pooped!"? 

98 FOR 1=1 TO 500 ; NEXT I 

99 PRINT§408?"3ood bye ,.. "5 

100 FOR 1=1 TO 10000 

110 PRINT@RNIi(1023)-l»" "? 

120 NEXT I 

160 STOP 

lOOO 'bent ley head 

lOlO A$="" 

1020 FOR 1=1 TO 74 

1030 READ X 

1040 IF X.>=0 

THEN A$=A*ICHR$(128+X) 

ELSE A$=AI+CHR$( 26 )fSTRING$( ABS( X )?8 ) 
1050 NEXT I 

1060 DATA 63?3?3f3?3?3?3f3f51?51?19?3j43f21?-14 
1070 DATA 63yOf32F60F60?16?0?62y3?3f43?20?42?21?-14 
1080 DATA 63f0?63?0?0?63?0?63y0f0y42?21f42?21f--14 
1090 DATA 63?0?63f48y48?63?0?63?48?4e»53r21?42f21?-14 
1100 DATA 15?12?12?12?12?12?44?12?12?12?12fl2?14f5 
1110 RETURN 
2000 'body - up 
2010 B$="" 
2020 FOR 1=1 TO 85 
2030 READ X 

2040 IF x:>=o 

THEN B$=B$+CHR$(123fX) 

ELSE B$=BHCHR$( 26 HSTRING$( ABS( X )?8 ) 
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2050 NEXT I 

2060 DATA Il?52f0f0f Of0?0?42f OrO? CH-0y0f32y30f l?-i5 

2070 DATA 2yl3?12?12f 12?12?46?12f 12? 12?12?12?7f-7 

2080 DATA 42?-5?40723?3?3?3?3?3f i?61 ?-9 

2090 DATA 42y21f0y0y0?0?0f 0';63f -9 

2100 DATA 42f21y0?0f0?0?0?0?63f~9 

2110 DATA 42y21f0yOf0?0'/0fO?63? -10 

2120 DATA 56?7fOfOfOf070?0?0?2;45yl6 

2130 RETURN 

3000 'body - down 

3010 C$="" 

3020 FOR 1=1 TO 83 

3030 READ X 

3040 IF X>=0 

THEN C$=CltCHRf(128tX) 

ELSE Cf=CIICHR$( 26 )tSTRING$( ABS( X )? 8 ) 



3060 
3070 
3080 
3090 
3100 
3110 
3120 



1 T . 
1 



■10 



DATA 42?-6f63y3f3?3?3?3j 

DATA 63?0r0?0?0f0?0f0?0?0f42*2lj-12 

DATA 63?0j0?0?0f0?0?0f0?0?42f21?-16 

DATA 3?3?3f373?0?0f0?0?0?0?0f07 0j2?3?3?3>'3?l 

RETURN 
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Discussion 



Suggestions 



® Tliis program is an example of the kind of simple animation 
that can be programmed easily. 

® Notice that the displaying of Bouncing Bentley is very rapid. 
Delay counting loops are incorporated at strategic positions 
to hold the picture for the viewer. 

® The strings A$, B$, and C$ provide the body parts that are 
printed and cause the animation to unfold. 

® Modify the program so that Bouncing Bentley doesn't 

progress from left to right during the bouncing fit, but starts 
at the center and bounces left or right at random. 



® Add some intermediate stances to the bounce that Bentley 
performs. 

® Using the basic ideas of this program, write a program that 
causes a stick figure to walk across the screen. 

® Combining the stand up comedian with the stick figure, 
write a program that causes the stick figure to "shuffle off 
to Buffalo". 
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Appendix A ASCII Codes and Character Set 



^'■J.^'^'l^-l 






I- r i 







ASCII codes 192 through 255 are called space compression 
codes because printing one of these characters causes tabbing for 
to 63 spaces. 
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|t| Rad w /haek 



A Dtvision o1 Tandy Corporation, Fort Worth, TX 76102 Printed in U S A 



